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Redactioneel 

Op de Efficiency Beurs was Commo¬ 
dore duidelijk als zakelijke leveran¬ 
cier aanwezig, men wil PC’s en Ami- 
ga’s leveren aan het bedrijfsleven. 
Dat is begrijpelijk, er zit nog een gro¬ 
te groei in de computermarkt daar. 
Het is echter jammer, dat men dan 
wat minder tijd over heeft voor het 
huiscomputersegment. Mooie plan¬ 
nen zijn fraai, in de praktijk heeft men 
in de Commodore organisatie minder 
‘liefde’ voor haar oorsprong en de pij¬ 
lers als de 64 dan we mogen ver¬ 
wachten. Praten over nieuwe marke¬ 
ting plannen is mooi, maar de huidige 
klanten mogen niet in de kou komen 
te staan. We vragen echt zeer gere¬ 
geld of er nog iets nieuws is voor de 
64 of de 128, om over de bijna verge¬ 


ten Plus 4 en C-16 (en Vic 20) maar 
niet te praten. Maar helaas, veel is er 
niet te melden. Voor de Amiga gaat 
het wat beter, de nieuwe harde schij¬ 
ven, de koppeling aan laserprinters 
en kleurenplotters, de hele Unix over¬ 
stap, daar gebeurt nogal wat. Onder¬ 
tussen blijken onze collega’s van 
Dossie Commodore het bijltje er bij 
neer gegooid te hebben, dat blad 
houdt, naar verluidt, op te bestaan. 
We zijn als Commodore Info dus 
weer alleen op de markt, maar we 
blijven u bedienen. En we zien zeer 
velen van u vast weer op de Commo¬ 
dore Info Beurs in de RAI op 11 en 12 
november, waar u als vanouds na¬ 
tuurlijk weer veel C-64, C-128 en 
Amiga spullen kunt vinden. De PC is 
er ook, maar dat begrijpt u ook wel. 

Luc Saia 
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Commodore nieuws 


De Orgatechnik tentoonstelling in Keulen is vlak na de Efficiency Beurs toch een voor 
ons land belangrijk gebeuren. Heel wat Nederlandse bedrijven gebruiken die beurs om 
onze Oosterburen te bedienen en met name op Commodore gebied was het een goe¬ 
de gelegenheid weer eens up- to-date te komen. 

Orgatechnik Keulen: 
traditionele beurs 



H et samenbrengen van kantoorinrichters, computerhandel en kopieerma¬ 
chines op een beurs leidt tot onoverzichtelijke massa-toestanden. Net 
als de EB was de Organtechnik dan ook veel te groot, veel te weinig gecon¬ 
centreerd en tamelijk warrig. Druk was het er wel en de sfeer is er toch an¬ 
ders, in Duitsland is de binding klant-leverancier veel sterker. 



De nieuwe PC 40-111 van Commodore 


Op zo’n beurs als de Orgatechnik 
komt de klant vooral om bestaande 
banden met leveranciers te onderhou¬ 
den, om in een persoonlijk gesprek te 
horen wat nieuw is en daarvoor dan 
ook een opdracht te geven. Er worden 
dus direct zaken gedaan, de order¬ 
boeken liggen altijd klaar en de stem¬ 
ming is wat serieuzer dan op de EB. 
Er is geen tijd voor stunts en het trek¬ 
ken van publiek is ondergeschikt aan 
het demonstreren en verkopen. Bij 
onze Oosterburen krijgt men niet snel 
een goede reputatie, maar als die er 
eenmaal is, blijft men ook zaken doen. 

Traditie en trouw 

Bedrijven met een lange traditie en 
goede naam zoals Philips doen het 
dan ook heel goed, men levert al jaren 
aan bepaalde klanten en die lopen 
echt niet voor een beursaanbieding 
naar de concurrent. Men wil wel nieu¬ 
we spullen, maar dan wel goed uitont¬ 
wikkeld, tijd voor kinderziekten heeft 
men niet. De prijzen zijn relatief hoog, 
maar men verwacht wel service en die 
moet dan van de dealer komen, het 
land is te groot voor een enkele ser- 
vicedienst. Op de stands van de diver¬ 
se leveranciers is er dan ook altijd veel 
plaats voor die dealers en software- 
partners. Die krijgen de kans, hun toe¬ 
passingsprogramma’s en verticale 
(branche)-pakketten te demonstreren 
en te verkopen, zo realiseert men de 
omzet in hardware. Zelfs een bedrijf 
als IBM verkoopt bijna 90% van haar 
PC omzet via de dealers, de directe 
verkoop is zeer ondergeschikt. IBM 
kent in Duitsland ook geen distribu¬ 
teurs, men wil direct contact houden 
met de dealers, die zijn daar te be¬ 
langrijk voor. De recente ophef rond 


het afschaffen van de ‘dis¬ 
tri butors’-fu nctie in ons land 
en in Frankrijk kwam dan 
ook in Duitsland niet voor. 

Commodore 

In Duitsland is het markt¬ 
aandeel van Commodore 
Buromachinen GmbH nog 
steeds heel groot, men is er 
duidelijk een A-merk. De ja¬ 
renlange relatie met de 
dealers en softwarehuizen 
is overeind gebleven in de 
overgang van 8 bit naar 16 
bits machines en Commo¬ 
dore is daar dan ook duide¬ 
lijk op de PC toer gegaan. 

De Amiga wordt goed ver¬ 
kocht als hobbymachine, 
maar voor zakelijk gebruik 
gaat het nagenoeg helemaal om de 
PC en AT lijn. Die worden gezien als 
Duitse machines, ze worden dan ook 
in Braunschweig gemaakt en veel 
Duitsers weten niet dat Commodore 
een Amerikaans bedrijf is. 

Aandacht 

De Duitse pers geeft dan ook veel 
aandacht aan het bedrijf en op de wat 
statige persconferentie in Keulen za¬ 
ten er dan ook wel een paar honderd 
man pers in de zaal. Niet dat de bood¬ 
schap van Harold Speyer, de Duitse 
topman, nu zo inspirerend is, maar het 
is gewoon een verplicht nummertje 
voor de journalisten daar. De wat dro¬ 
ge cijfers en als altijd optimistische 
verwachtingen worden als zoete koek 
geslikt. Omdat Duitsland langzamer¬ 
hand de kurk is, waarop het hele Com¬ 
modore gebeuren drijft, is het duitse 


management-team oppermachtig en 
ziet men vrijwel niemand uit de VS. De 
Duitse omzet is dan ook met 866 mil¬ 
joen DM bijna 55% van de totaalom¬ 
zet van Commodore wereldwijd. Het 
marktaandeel van het bedrijf in Duits¬ 
land is met 70.000 verkochte PC’s het 
afgelopen jaar weer iets gegroeid, 
men is nu duidelijk nummer 2 na IBM. 

Komplett-Netz 

In ons land ging men op de EB al fors 
in de richting van een Unix netwerk 
met Commodore hardware, op de Or¬ 
gatechnik hield men het bij de iets tra¬ 
ditionelere Lokale Netwerken met de 
PC 60 als fileserver met een 80386 
processor. Een klein netwerkje voor 
gebruik in kleinere bedrijven, dat An- 
wender Netz heet, wordt kompleet ge¬ 
leverd, met alle kaarten en software al 
geinstalleerd. Met een PC 60 en twee 
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PC 10- lll's, Netboard kaarten en het 
Network OS plus het geïntegreerde 
softwarepakket Superdesk in net¬ 
werkversie is dat een handige oplos¬ 
sing voor het MKB. Het is niet erg 
snel, de transmissiesnelheid is 2,5 
Megabit/sec, met datablocks van 48 
KB. Maar er wordt dan ook gebruik ge¬ 
maakt van relatief eenvoudige (RS 
422)-bekabeling, niet van coaxiaalka- 
bel. Er kunnen tot maximaal 10 PC 
worden aangesloten op het 'Anwen- 
der-netz’, de maximale kabellengte is 
150 meter. De Net-Bios maakt het net¬ 
werk compatibel met software, die 
voor Novell geschreven is. 

Computhek 

Om de kennismaking met de compu¬ 
ter en het op de hoogte blijven van de 
verschillende software-toepassingen 
eenvoudiger te maken, heeft Commo¬ 
dore het ‘Computhek-Programm’ ge¬ 
maakt. Dat is een leerprogramma, dat 
ook de kans geeft om interactief ver¬ 
schillende soorten software te verken¬ 
nen. Het geheel is in leerfasen opge¬ 
bouwd, waarbij men ook als beginner 
al kennis kan nemen van wat 1-2-3, 
dBase of Wordstar te bieden hebben. 
Wanneer men het Computhek pro¬ 
gramma voor bedrijfstrainingen ge¬ 
bruikt, kunnen de uit te leggen soft¬ 
warepakketten naar behoefte worden 
aangevuld. 

PC 60 

De eisen, die tegenwoordig aan een 
80386 machine gesteld worden, wor¬ 
den steeds hoger. Met name omdat 
OS/2 en de diverse Unix varianten 
een veel groter geheugen dan de ver¬ 
trouwde 640 KB nodig hebben, is de 
geheugentoegang van belang. Die 
dient 32 bit te zijn en omdat er op dit 
moment nog geen standaard is 
(m.u.v. IBM’s MCA en de toekomstige 
EISA) zet men dan liefst zo veel mo¬ 
gelijk RAM op de moederkaart. Daar 
kan men wel via een 32 bits datapad 
gegevens van en naar het geheugen 
krijgen. Bij de PC 60 van Commodore 
kan men tot 2,5 MB op die manier be¬ 
nutten, waarbij gebruik gemaakt wordt 
van de ‘Control/386’ software van 
Phoenix Technologies. Daarmee 
wordt zowel de indeling van de onder¬ 
ste 720 KB, het gebruik van het RAM 
volgens EEMS en LIM, maar ook ca- 
che geheugen voor disk-optimalisatie 
geregeld. 

PC 40-111 

Van de meeste Commodore PC’s ko¬ 
men er geregeld nieuwe modellen. De 


PC- 40 is aan versie III toe, die vooral 
qua uiterlijk heel wat kleiner geworden 
is. Meer onderdelen en interfaces op 
het moederboard, dat is de oplossing 
die men hier koos. Naast de video- 
controller (met ook VGA) zijn ook an¬ 
dere l/O interfaces nu standaard op 
de kaart gezet. 

De kloksnelheid is ook verhoogd, men 
kan met 12 Mhz draaien, maar ook te¬ 
rugschakelen, hetgeen voor bepaalde 
spelletjes nuttig kan zijn. Er zijn vier 
vrije sleuven in de PC 40-111. 



Anwender-Netz met PC 60 


Amiga 

Commodore had in Keulen duidelijk 
meer aandacht voor de zakelijke be¬ 
zoekers dan voor de creatieve Amiga 
uitspattingen. Met name zochten we 
tevergeefs naar de aangekondigde 
Workbench 1.3, (zie de bespreking el¬ 
ders van de onofficiële versie) maar 
gelukkig brachten de wel aanwezige 
Amiga toeleveranciers op de beurs 
ons weer helemaal up-to-date. 
Volgens het bedrijf staan er 200.000 
Amiga’s in Duitsland. Dat is een fors 
aantal en er is dan ook een levendige 
handel in Amiga spullen. 

Universeel scanner 

Ludwig uit Munchen (tel. 089- 
3113066) levert de Silver Reed uni¬ 
versele scanner, in een speciale Ami¬ 
ga uitvoering voor 1498 mark. Dat is 
niet veel geld voor een A-4 scanner, 
compleet met ingebouwde thermische 
afdrukker en scan-software. De reso¬ 
lutie is met 200 dpi wat mager, maar 
doordat men 16 grijstinten (4 bits) in 


IFF formaat kan onderscheiden, is het 
resultaat acceptabel, e twijfelen zelfs 
aan die 200 dpi, de scherpte in één 
richting is duidelijk beter dan in de an¬ 
dere. De afdrukkwaliteit valt tegen, 
men kan beter de zaak inlezen en uit¬ 
draaien met een echte laserprinter, 
maar de thermoprinter is dan ook niet 
meer dan een soort proefdrukker. Het 
inlezen van een A4 afbeelding duurde 
ongeveer 15 seconden, men kan ook 
verkleinen tot max. 1:4. 

Er is wel een Amiga met minstens 1 
MB aan geheugen nodig, gescande 
plaatjes vreten nu eenmaal bytes aan 
opslagruimte. De scanner komt kom¬ 
pleet met interface, kabel, software en 
handleiding. Qua prijs heel redelijk, 
kwalitatief hebben we wel eens bete¬ 
re scanners gezien, die dan ook, moe¬ 
ten we toegeven, heel wat meer kos¬ 
ten en geen print- functie kennen. 

Software-aanbod 

Bij software-uitgeverij Markt&Technik 
bekeken we nog even hun winter ca¬ 
talogus. De interessante ‘DeLuxe Pro- 
ductions’ voor de Amiga van EA is he¬ 
laas alleen in de NTSC versie lever¬ 
baar (we hebben hier PAL nodig). De 
andere EA DeLuxe programma’s, zo¬ 
als Print II en Photolab Amiga deden 
ons toch weer even stilstaan, de crea¬ 
tieve mogelijkheden van de Amiga zijn 
toch steeds weer verrassend. 
Superbase Professional is een uitste¬ 
kend database programma voor de 
Amiga, met een goede naam uit de 
C64 en zelfs de 8032/Pet historie. He¬ 
lemaal aan te passen aan de meeste 
vreemde database wensen is het van 
belang, dat dit programma ook draait 
op een 512 KB Amiga. 

Voor de C-64 en de 128 zijn er ook wat 
leuke nieuwe programma’s. In Duits¬ 
land biedt men ook de duitse versie 
van GEOS128 aan (DM 119) en de 
toepassingsprogramma's GeoCalc en 
Geofile voor de 128. 

Doelgoep: meisjes 

Voor de Amiga 500 heeft men een 
speciale aktie bedacht, die zich richt 
op meisjes. Het thema is de computer 
ais vriendelijke helper bij het huis¬ 
werk. Men levert daarom het Amiga 
500 Power Pack, compleet met aller¬ 
lei software. Als motto gebruikt men : 
'Kiss me, Amiga’ en er is een Miss 
Amiga verkiezing. 

In Duitsland is er ook een speciaal on¬ 
derwijs model van de Amiga, de 
2000E. Daarvan zijn er nu meer dan 
5000 verkocht. 

L.S. 
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Op de Efficiency Beurs deed Commodore Nederland haar marktstrategie uit de doe¬ 
ken. Daarbij speelt de Amiga een dubbelrol, als (re)creatieve computer, maar ook als 
professioneel Workstation. 

Commodore wil 
naar zakelijke markt 

Amiga en PC zij aan zij in C.O.M.E. concept. 

O p de Commodore stand van de Efficiency Beurs was nauwelijks meer 
een leuke toepassing te zien, alles was bloedserieus, de nieuwe zake¬ 
lijkheid van CBM voerde de boventoon. Teleurstelling voor de 64 gebruiker? 

Ach, zo’n EB is toch echt een zakelijk gebeuren geworden, de huiscompu- 
ter past weer meer op andere beurzen. 

voor het inpassen van Commodore 
hardware in de meest voorkomende 
netwerken. Commodore ziet zichzelf 
daarbij als de naaf in een netwerk van 
partners, die bijvoorbeeld hun net¬ 
werk software, zoals Banyan of No¬ 
vell, operating systeem zoals SCO 
Xenix/UNIX of communicatie-facilitei- 
ten toevoegen. Maar ook koppeling 
van andere randapparatuur, commu¬ 
nicatie naar mini-computers zoals die 
van Digital en Pyramid via Ethernet en 
het gebruik van uitbreidingskaarten 
van Add-On. Samenwerken en dan 
wordt het beeld van het ‘Winning 
Wheel’, met Commodore in het hart, 
gebruikt om de samenwerkingsvorm 
aan te geven. Haar partners heten 
dan VAR ofwel value Added resellers, 
een Amerikaanse kreet. 

Unix-trend 

Hier valt een duidelijke trend naar 
Unix te merken, het bedrijf bereidt zich 
duidelijk voor op een offensief in die 
richting met de nieuwe Amiga 2500 
UX met 68020 processor en de 3000 
Amiga, die volgend jaar uitkomt met 
een 68030 hart. Naast de Amiga’s 
voor de zakelijke toepassingen blijft 
natuurlijk ook de PC en AT lijn van 
Commodore een krachtig bestand¬ 
deel van het COME plan. Op de Effi¬ 
ciency Beurs liet men de COME im¬ 
plementatie zien, door in een nage¬ 
bouwd kantoor de totale koppeling 
van alle Commodore systemen en 
partner-aanvullingen tot één geïnte¬ 
greerde systeem te realiseren. Met 
minicomputers, snelle Ethernet- 
LAN’s, de laatste snufjes waren daa- 



Koppeling, compatibiliteit en samen¬ 
werking met grotere computers, dat 
interesseert op dit moment het be¬ 
drijfsleven. Dat staat vol met PC’s, 
maar kijkt uit naar de volgende stap. 
Met de basis van een stevige range 
MS-DOS compatibele computers, 
een steeds krachtiger Amiga familie 
en met de blik duidelijk naar de Unix 
toekomst wil Commodore een krachti¬ 
ger positie bij de zakelijke kopers be¬ 
reiken. 

Ommezwaai 

Op dit moment is Commodore nog 
voor 80% van haar omzet afhankelijk 
van de consumentensector, de huis- 
computers. Men wil dat gaan verande¬ 
ren en vooral in de professionele sfeer 
gaan groeien. De verhouding moet 
40/60 gaan worden en dat wil men 
met name gaan bereiken, door de 
meerwaarde van het zakelijk aanbod 


Links: 

J.F. van temmen 
Commercial 
Director 

Rechts: 

B.P.H. van Tienen 
Managing Director 

te verhogen. Meer support, betere 
kwaliteit en vooral een zodanige sa¬ 
menwerking met partners in de markt, 
dat men de klant bredere oplossingen 
kan bieden. Alleen PC’s leveren kan 
niet meer, er is behoefte aan syste¬ 
men, die aan elkaar en aan andere 
systemen gekoppeld kunnen worden, 
ook naar grotere netwerken en mini¬ 
computers toe, vindt de heer van 
Lemmen. Toegevoegde waarde, wil 
men de stap naar A-merk kunnen 
waarmaken, dan zal men de klanten 
meer moeten bieden dan de doos met 
het apparaat. 

C.O.M.E 

Om de zakelijke gebruikers dat brede 
pakket te kunnen bieden, heeft Com¬ 
modore samen met het bedrijf Matri- 
com het COME concept opgezet. Dat 
is het Commodore Open Manage¬ 
ment Environment, een raamwerk 
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rin samengebracht. Doordat men in 
zo’n omgeving toch kan blijven wer¬ 
ken met dezelfde software, bijvoor¬ 
beeld het op de Amiga, onder MS- 
DOS en onder Unix draaiende Word¬ 
Perfect, wordt het voor de gebruiker 
een bereikbaar systeem en voor de 
beheerder een overzichtelijke en toe- 
komstzekere aankoop. 

Duitsland als voorbeeld 

In het buurland is het Commodore ge¬ 
lukt, op te klimmen tot de tweede 
plaats als leverancier van PC’s aan 
het bedrijfsleven. Men heeft daar het 
voordeel van eigen ontwikkeling en 
produktie, vlak bij Hannover, maar het 
succes van de Westduitse organisatie 
is ook wereldwijd een van CBM’s be¬ 
langrijkste troeven. Men is daar nooit 
de positie als gewaardeerde leveran¬ 
cier aan tientallen softwarehuizen en 
VAR’s, begonnen met de PET en 
8032 tot 8096 systemen, kwijtgeraakt. 
Geleidelijk zijn die bedrijven overge¬ 
schakeld op PC’s en de Duitse orga¬ 
nisatie heeft vanaf het begin gezorgd 
dat men de daarvoor benodigde hard¬ 
ware, met name de PC lijn, kon leve¬ 
ren. Zelfs waar men in de VS niet aan 
de PC wilde, werd die in Duitsland 
ontwikkeld en naar nu bleek, terecht, 
want het marktaandeel daar is indruk¬ 
wekkend. 

Terugwinnen 

In ons land, waar zo’n drie tot vijf jaar 
geleden een enigszins vergelijkbare 
situatie bestond, met een duidelijke 
positie voor CBM in de professionele 
automatisering van het MKB en in be¬ 
paalde verticale markten, is dat min¬ 
der goed gelukt. De ooit zo aan Com¬ 
modore verknochte dealers zijn in het 
huiscomputer-geweld wat vergeten, 
en de PC’s zijn wel breed, maar niet 
erg gericht afgezet. De huidige Com¬ 
modore PC dealer of wederverkoper 
moet het hebben van prijs en algeme¬ 
ne naamsbekendheid, de verticale 
branche-oriëntatie van weleer is 
goeddeels verdwenen. Commodore 
erkent ook, dat men met het PC aan¬ 
bod eerder marktvolger is dan dat 
men zelf met nieuwe aanpassingen 
komt. Indien de markt er om vraagt, 
komen wij met bijvoorbeeld de VGA 
beeldstandaard, zoals in de nieuwe 
AT's, maar niet eerder. Daarom ver¬ 
wachten we ook zeker, dat Commodo¬ 
re een EISA machine (de nieuwe bus- 
standaard als alternatief voor IBM’s 
MCA) gaat leveren, wanneer de markt 
daarom vraagt. 

Men ziet op dit moment meer in een 
doordachte koppeling en integratie 


van de huidige techniek, voorop lopen 
in toepasbaarheid, niet in technologi¬ 
sche hoogstandjes. Dat is waarom 
men ook met COME wil komen, en 
vooral de grotere accounts overtuigen 
van de waarde daarvan door een 
doordacht en vooral qua communica¬ 
tie breed concept. Die grotere klanten 
worden via telemarketing op de hoog- 


lijkbare PC constellaties duidelijk 
overtreft. 

Thuiscomputeren 

Bij alle plannen voor een actief marke- 
tingbeleid op de zakelijke markt zal 
men de bread-and-butter lijn, de afzet 
van huiscomputers, niet laten lopen. 



Commodore 
Amiga 2000 


te gebracht van het COME plan en 
men wil daarmee de directe relatie 
met grotere klanten verbeteren. 

Amiga: veel gezichten 

De rol van de Amiga wordt steeds be¬ 
langrijken omdat men nu ook Amiga’s 
heeft, die geschikt zijn voor serieuze 
toepassingen. De Amiga 2000, met de 
PC emulatie-opties, was al een goede 
stap in die richting, maar er komt nog 
meer. Dat is in de eerste plaats de 
Amiga 2500, die ook onder Unix kan 
draaien. Met een prijskaartje, dat te¬ 
gen de 15.000 gulden gaat liggen, is 
dit duidelijk geen hobbymachine 
meer, maar een volwaardig werksta¬ 
tion of zelfs de kern van een multi-user 
Unix systeem. Begin volgend jaar 
komt er ook een model 3000, dat nog 
krachtiger zal zijn door het gebruik 
van de Motorola 68030 processor. 
Voor gebruik in netwerken zijn er nu 
diverse oplossingen voor de Amiga. 
Zo zijn er interface kaarten naar de ty¬ 
pische PC netwerken, zoals Arenet, 
die ongeveer 1000 gulden gaan kos¬ 
ten. Wil men echter een compleet op¬ 
getuigde Amiga gaan gebruiken als 
Unix werkstation, dan kan er ook een 
directe Ethernet koppeling (met 
TCP/IP protocol) worden aange¬ 
schaft. Zo’n kaart kost dan wel tegen 
de 3000 gulden, maar het gaat dan 
om geavanceerde CAD/CAM of vi- 
deo-toepassingen, waar de creatieve 
vrijheid van de Amiga die van verge- 


Volgens van Tienen heeft Commodo¬ 
re op de markt voor huiscomputers 
een riante positie. Wereldwijd zijn er 
750.000 Amiga’s verkocht. Zeker nu 
MSX min of meer wordt afgebouwd, 
alleen Philips verkoopt het maar in 
een paar landen, heeft men het in het 
segment tot ongeveer 500 gulden 
voor het zeggen. De C-64 en C-128 
zijn daar nog sterke produkten, al is de 
leeftijd van de gebruikers wel wat jon¬ 
ger geworden. Men geeft toe, dat er 
een zekere stabilisering of zelfs inzak¬ 
ken van de afzet is opgetreden, daar¬ 
entegen zijn de prijsoorlogen op deze 
markt verleden tijd. Met de Amiga 500, 
waarvan er tegen het einde van het 
jaar in ons land zo’n 30.000 zullen zijn 
verkocht, heeft men een sterke positie 
in het segment van de creatieve huis¬ 
computers, met alleen de Atari ST als 
concurrent. Commodore gelooft ech¬ 
ter, dat men die strijd glansrijk gewon¬ 
nen heeft en dat de Amiga verder zal 
doorgroeien tot de ‘standaard’ huis- 
computer voor wie meer wil dan wat 
de toch vrij beperkte budget-PC- 
kloon kan bieden. 

Spelcomputer 

In Japan en later in de VS heeft Nin¬ 
tendo bewezen, dat er wel degelijk be¬ 
langstelling is voor pure spelcompu¬ 
ters, in de traditie van de Atari model¬ 
len uit het begin van de jaren tachtig. 
Die markt is in de VS weer gaan op¬ 
bloeien en met name voor jongere kin- 
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deren worden er weer miljoenen vi- 
deo-spelmachines verkocht. Atari is 
ook weer actiever geworden en heeft 
nieuwe spelcomputers uitgebracht, en 
dan kan Commodore niet uitblijven. 
Op de Consumer Electronics Show in 
Las Vegas begin januari volgend jaar 
komt er dan ook een 16 bits Commo¬ 
dore spelcomputer uit. Men wil nog 
niet antwoorden op de vraag, of die 
ook compatibel zal zijn met de C-64. 
Wanneer dat het geval is, dan komt de 
‘oude’ C-64 software, die vroeger ook 
vaak op insteek-cartridges werd ge¬ 
zet, weer in beeld. Maar dat houdt ook 
in, dat voor de nieuwe machine al een 
berg software min of meer van de 
plank gehaald kan worden. Dat wil 
Commdore misschien liever niet, men 
wil liever de sofwtarebedrijven nieuwe 
software zien ontwikkelen. Of dat ge¬ 
beurt, is de vraag, Commodore heeft 
wat betreft de software voor haar sys¬ 
temen nog steeds een vreemde op¬ 
stelling.__ 


De software Januskop 

Voor de professionele en zakelijke 
markt is men absoluut tegen kopiëren 
en ziet men het belang van een ge¬ 
zonde softwarebranche in. Voor de 
thuiscomputermarkt daarentegen is 
de opstelling veel vrijer. Daar kopieert 
men er toch naar hartelust op los, dat 
kan ons niet zoveel schelen, zegt 
men. Dat is daar deel van de sport en 
we gaan daar ook in mee door bijvoor¬ 
beeld voor de Amiga steeds meer 
software met het systeem mee te ver¬ 
kopen. De software is een soort Free¬ 
ware, maar daarbij vergeet men wel, 
dat de ontwikkeling van betere en 
nieuwe software op die manier stag¬ 
neert. Zeker in ons land, dat wereld¬ 
wijd een heel slechte naam heeft als 
software-piraterijnest, merken we dat 
heel duidelijk. De weinige bedrijven in 
ons land, die zelfstandig software kon¬ 
den ontwikkelen voor de huiscompu- 
termarkt, zijn ofwel failliet (Aackosoft) 


ofwel overgestapt op serieuze PC 
software zoals Radarsoft. De verkrijg¬ 
baarheid van Amiga software is be¬ 
droevend slecht, omdat iedere impor¬ 
teur en detaillist weet, dat het spul 
toch snel gekraakt wordt en het kopi- 
eercircuit in gaat. Men wil niet adver¬ 
teren voor nieuwe software en het is 
ook duidelijk, dat bijvoorbeeld voor de 
C-64 de ontwikkeling ervan ook bijna 
is gestopt. Niemand gelooft er meer 
in, voor de tijdschriften die deze markt 
toch voor een deel aan de gang hou¬ 
den, is er weinig meer om over te 
schrijven. 

Commodore zou er daarom beter aan 
doen, wat betreft het kopiëren één lijn 
te trekken, en op te treden tegen deze 
praktijken. Men kan niet voor de ene 
soort software tegen kraken zijn en 
voor de andere soort dit toejuichen. 

Luc Sala 


Koning Arthur in de computer 

D e sage van de Heilige Graal, Lancelot en Koning Arthur wordt weer le¬ 
vend. Ditmaal in een computer-avonturenspel en natuurlijk is de Ami¬ 
ga het uitnemende platform om zo’n spel gestalte te geven. Het is een 
semi-klassiek, voor zover we daarbij in het geval van de Amiga kunnen 
spreken, beeld-adventure geworden. Om het nog aantrekkelijker te ma¬ 
ken heeft de uitgever van het het spel, Mandarin Software in Groot Brit- 
tannië er nog een prijsvraag aan verbonden die de winnaar een kostbare 
kist met zilveren graal oplevert van 5000 pond sterling. Beproef je geluk, 
als je tot 2 februari 1989 naar de ‘Hotline’ in Engeland belt en de geheime 
bergplaats van de graal weet op te sporen. 



Bij dit spel wordt gebruik gemaakt van de ‘parser’ van het 
bekende level 9. Een parser is een stuk software, dat de 
link legt tussen gewone (in het engels dan wel) comman¬ 
do’s en wat er in het spel gebeurt, een soort vertaler dus. 
Deze parser is zeer befaamd en dat men er mee mag 
werken verhoogt de spelkwaliteit aanzienlijk. Gebruik van 
commando’s als GO TO en RUN TO maakt reizen door 
het adventure veel eenvoudiger. En UNDO is de redding 
voor wie te snel sneuvelt in de speurtocht naar de Graal. 

Ronde tafel ridders 

Het spel heet lancelot’, is ontwikkeld door de ‘Level 9'- 
groep en bevat drie avonturenspelen met een totaal van 
meer dan 60.000 woorden tekst, afgewisseld door fraaie 
plaatjes. Het spel volgt nauwgezet het boek ‘Le Morte 
d’Arthur’ van Sir Thomas Malory, zoals dat in 1485 door 
William Caxton gepubliceerd werd. Gelukkig wordt niet de 
Middeleeuwse tekst gebruikt voor het spel, maar ademt 
het wel de magisch-sacrale sfeer van het origineel. 

Historisch 

Het begint uiteraard bij het stichten van de Tafelronde en 
eindigt bij de succesvolle jacht (in het middelnederlands 


‘queeste’) op de Heilige Graal. 

Heel smaakvol is bij het spel achtergrond-informatie en 
een perkamenten kaart van Engeland in Koning Arthurs 
tijd bijgevoegd. 

De hele Saga bestaat uit drie in elkaar verwikkelde ad- 
ventures, allemaal gelardeerd met puzzles, raadsels en 
maar liefst 60.000 woorden tekst. Geen opgave om in een 
uurtje te doen, hier zit weken spelplezier in, het electroni- 
sche avonturenboek in optima forma. 

Lancelot wordt uitgebracht in verschillende versies: Atari 
ST, Commodore Amiga, Commodore 64, Apple Macin¬ 
tosh, PC’s en compatibelen, Amstrad CPC/PCW, BBC 
Master, Spectrum Plus3, in deze formaten met graphics. 
In tekstvorm ook nog voor de Apple II, de Atari XL/XE, de 
Sinclair Spectrum en de MSX. 

Natuurlijk zijn het vooral de Amiga en ST versies, die het 
qua screenshots zo heel mooi doen en eigenlijk de ande¬ 
re versies wat in de schaduw stellen. 

Mandarin Software, Europa House, Adlington Park, Ad- 
lington, Macclesfield SK104NP, U.K. Deze Amiga soft¬ 
ware wordt echter ook door Computer Collectief en ge¬ 
specialiseerde dealers verkocht. 
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De serie Basic-artikelen wordt door Jan Bodzinga voortgezet met een reeks aflever- 
eringen, waarin alle Basic-commando’s en functies aan de orde komen, die voor de 
Commodore computer te gebruiken zijn. Na de algemene introductie in de vorige les, 
beginnen we nu met het echte werk. De cursus is bewust niet gerelateerd aan een be¬ 
paald type uit de Commodore reeks, maar kan in principe bij iedere computer met Ba¬ 
sic interpreter worden toegepast. 

Basis Basic 


deel 24: Basic van A tot Z 

D e Basic interpreter van de Commodore kent een hele reeks opdrachten 
en functies. In de vorige aflevering zijn we uitvoerig ingegaan op de ma¬ 
nier waarop we de computer duidelijk kunnen maken hoe we een opdracht 
precies uitgevoerd willen hebben, terwijl natuurlijk ook de parameters bij de 
functies aan de orde zijn gekomen. 


Deze les zullen we onze excursie door 
het Basicland beginnen met de op¬ 
drachten die alfabetisch gezien bo¬ 
venaan staan. We hebben bewust 
voor deze opzet gekozen om een zo 
breed mogelijk scala door elkaar te 
kunnen behandelen, zodat het geheel 
wellicht nog leesbaar blijft, terwijl ook 
het terugzoeken van een bepaalde 
functie achteraf tamelijk snel in z’n 
werk kan gaan. Een nadeel van deze 
opzet is natuurlijk dat het nog wel 
even duurt voor we opdrachten als 
WAIT en VERIFY zullen behandelen. 
Maar uiteindelijk zullen deze het ge¬ 
heel completeren. 

Laten we maar beginnen: 

ABS 

Type : BASIC functie, rekenkundig 

Doel : Het berekenen van de 'absolu¬ 
te' waarde van de uitdrukking die tus¬ 
sen haakjes achter de functie ABS 
wordt gezet. Simpeler gezegd: ABS 
maakt een negatieve expressie of dito 
getal positief. Een dergelijke functie 
heeft binnen Basic een zekere taak, 
hoewel je niet meteen kunt zeggen 
dat het een functie is waar je niet zon¬ 
der kunt. 

Mode : Zowel in programma-mode als 
direct-mode kan de ABS-functie wor¬ 
den toegepast. 

Syntax : ABS (rekenkundige expres¬ 
sie) 

De expressie tussen de haken kan na¬ 
tuurlijk niet bestaan uit een string, 


maar moet uiteindelijk te herleiden zijn 
tot een numerieke waarde. Een string 
of foute expressie heeft een foutmel¬ 
ding tot gevolg, zoals ’SYNTAX ER- 
ROR’, TYPE MISMATCH’ of ’DIVISI- 
ON BY ZERO ERROR’. Als de uit¬ 
komst van de expressie te groot is, 
dan ook laat de Commodore het afwe¬ 
ten met een 'OVERFLOW ERROR’. 
De ABS()-functie kan worden gebruikt 
aan de rechterkant van een statement 
waarin waarden aan variabelen wor¬ 
den toegekend (assignments) ofwel 
na een logische expressie als bijvoor¬ 
beeld IF. Ook na een PRINT-opdracht 
kunnen we de functie ABS() tegenko¬ 
men. 



Gebruik : Hoewel ABS() een niet erg 
veel gebruikte functie is, zal ik toch 
wat voorbeelden van het gebruik bij 
elkaar proberen te scharrelen, zodat 
wellicht het nut van een dergelijke 
functie blijkt. De functie bestaat min of 
meer bij de gratie van de traditie, want 
vroeger moest een rekenprocessor 
voornamelijk worden belast met dit 
soort activiteiten. Maar hier wat voor¬ 
beelden: 

I IF ABS(X) > 100 THEN PRINT 
"Buiten limief'.STOP 


Bij deze opdracht wordt de waarde die 
de variabele X kan aannemen, be¬ 
grensd tussen -100 en 100. Komt 
deze waarde buiten de gestelde 
grens, dan zal ABS(X) resulteren in 
een positieve waarde groter dan 
+100. Een opdracht als bijvoorbeeld: 

la IF ABS(X) > -10 THEN. 

heeft natuurlijk geen enkele zin, en zal 
altijd TRUE als uitkomst hebben. 

II IF ABS (X-XI) >0.0001 THEN 
PRINT "AFRONDEN" 

In dit voorbeeld wordt getest of de va¬ 
riabele X in waarde minder afwijkt van 
de waarde die XI heeft, dan 0.0001. 
We kunnen een dergelijke manier van 
ABS() bijvoorbeeld gebruiken bij het 
afronden van bedragen en dergelijke. 
Zoals de fervente programmeur wel 
zal weten is de Commodore vanwege 
de wijze van omgaan met de 5 byte 
grote floating-point rekenkunst in sin¬ 
gle precision niet al te nauwkeurig. 
Een opdracht bijvoorbeeld als 7*9 le¬ 
vert bij de Commodore zeker geen 
40353607 op, (7*7*7*7*7*7*7*7*7) 
maar heeft (gek genoeg) 40353607.1 
als uitkomst. Om dit type onnauwkeu¬ 
righeid uit onze rekenprogrammatuur 
te weren zou de ABS functie kunnen 
worden gebruikt, omdat we bij derge- 
' lijke tests in één opdracht zowel bo¬ 
ven als onder de grens van een be¬ 
paald bedrag kunnen controleren. 

| Voorbeeld II kan uiteraard ook als 
volgt worden geschreven, als we he- 
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lemaal op de sjieke toer willen schrij¬ 
ven: 

llalFABS (X - XI) > IE -4 THEN 
PRINT "AFRONDEN" 

Het aardige bij dit voorbeeld is, dat je 
ziet dat de grens positief/negatief bij 
ABS() niet per sé 0 hoeft te zijn, we 
trekken simpelweg bepaalde bedra¬ 
gen van elkaar af, waardoor het resul¬ 
taat tot nul evalueert. 

III l%=ABS(100 * SIN(X)) 

Het derde voorbeeld van ABS() ge¬ 
bruik zal beter begrepen worden door 
de wiskundigen onder ons, zeker ook 
omdat het gebruik van de SINus func¬ 
tie niet al te vaak voorkomt in de huis- 
tuin en keukensoftware. Hier wordt 
gebruik gemaakt van de eigenschap 
van de SIN() functie, waarbij je moet 
weten dat de waarde van een SINUS 
altijd ligt tussen -1 en 1, waardoor in 
ons voorbeeld de test voor de waarde 
van 1% nooit kan liggen tussen 0 en 
10, ongeacht de waarde van de varia¬ 
bele X. Wel zal de waarde van 1% in 
integer-vorm, dus zonder decimalen, 
al naar gelang de waarde van X een 
waarde krijgen tussen 0 en 10. 

IV IF ABS(ABS(X-X1) - ABS(Y-YI)) 
< 3 THEN GOTO 100: REM OP¬ 
NIEUW 

Dit voorbeeld maakt een driedubbel 
gebruik van de functie ABS, eigenlijk 
alleen om te laten zien, dat dit ook mo¬ 
gelijk is. Het is door mij ooit aangetrof¬ 
fen in een spel-listing, waarbij deze re¬ 
gel is geschreven, om te controleren 
of twee willekeurig gekozen punten in 
een matrix (X en Y) niet al te dicht bij 
elkaar in de buurt lagen. Door beide 
verschillen weer van elkaar afte trek¬ 
ken kan redelijk worden bepaald of 
aan het gestelde doel wordt voldaan. 
Niet bijzonder nuttig, maar leuk om 
eens te zien. ABS is nu eenmaal de 
eerste Basic functie die we alfabetisch 
tegenkomen. 

Werkwijze: De ABS() functie in de Ba¬ 
sic interpreter behoort tot de allereen¬ 
voudigste routines die we kennen. Na 
het controleren van de geldigheid van 
de expressie of het getal tussen de 
haken, wordt de uitkomst in de eerste 
floating-point accumulator gezet, 
waarbij de waarde op een ingewikkel¬ 
de, maar gebruikelijke manier wordt 
opgedeeld in precies 5 Bytes. Eén van 
deze bytes, het ’SIGN-byte’ heeft een 
bit gereserveerd voor het 'teken', po¬ 
sitief of negatief. Dit bit wordt sowieso 
op nul gezet door ABS(). En dat is al¬ 


les. Het getal wat hierdoor uit de floa- 
ting point accumulator komt is daar¬ 
door altijd postief. 

De precisie van het getal in de FPA#1 
lijdt niet onder de behandeling die 
door ABS() wordt gegeven. Hele gro¬ 
te getallen worden echter altijd door 
de accumulator 'gestript' wat de accu¬ 
ratesse enigszins kan aantasten. De 
waarde wordt dan in veel gevallen ge¬ 
retourneerd in de exponentiële of wis¬ 



kundige notatie. 


AND 

Type : BASIC operator, binair logisch. 

Doel : De 'logische AND’ wordt bere¬ 
kend van twee respectieve waarden 
of expressies. Beide kunnen zowel lo¬ 
gisch als rekenkundig zijn, het resul¬ 
taat van de AND wordt daaraan ge¬ 
confirmeerd met een rekenkundig re¬ 
sultaat als eerste mogelijkheid. Beide 
expressies (waarden) moeten wel 
vooraf worden omgezet naar 2-byte 
integers. De uitkomst van de AND- 
operatie is ook een 2-byte integer. 

Bij op zich al logische expressies is 
het resultaat ook logisch, dus 0 of -1, 
FALSE of TRUE, waardoor van meer¬ 
dere logische expressies tegelijk de 
TF-waarde kan worden getest. 

Mode : AND kan zowel in programma- 
mode als direct worden gebruikt. 

Syntax : 

Rekenkundige expressie AND reken¬ 
kundige expressie 

Logische expressie AND loqische ex¬ 
pressie 

Rekenkundige expressie AND logi¬ 
sche expressie (wordt rekenkundig. 
De expressie aan beide kanten van 
AND moeten integer zijn, waardoor de 
waarde slechts kan liggen tussen - 
32768 en 32767. Floating point getal¬ 
len, met decimalen worden automa¬ 
tisch gestript tot integers. Logische 
expressies vallen automatisch binnen 
deze grenzen, want die kennen bij de 
Commodore geen andere waarden 
dan 0 en -1. Bij gebruik van AND en 
expressies groter dan de integer limie¬ 
ten wordt een passende foutmelding 


gegeven. Ook syntax-errors in één 
van beide expressies worden door de 
Commodore ondervangen. 

Gebruik : Het gebruik van AND zal 
door iedere programmeur wel eens 
zijn toegepast. Want met hulp van 
AND en IR.THEN kunnen heel wat 
condities tegelijk worden getest. Hoe¬ 
wel voor velen de logische functies 
van AND misschien wat moelijker te 
vatten zijn, ligt het algemene gebruik 
van AND wel voor de hand: 

I XX = 75 AND 380 

We beginnen met een recht-voor-z’n 
raap voorbeeld van een AND tussen 2 
getallen (integers). Alvast vooruitlo¬ 
pend op de bewerking kan ik zeggen 
dat de uitkomst in XX uiteindelijk de 
waarde 72 zal krijgen. Gek misschien, 
maar waar. Voor allen die het nooit 
hebben gesnapt, waarom AND met dit 
soort toch wel vreemde getallen voor 
de dag komt, zullen we de AND van 75 
en 380 wat uiteen rafelen. 

Om het nodige van AND te snappen 
moeten we als eerste de getallen 380 
en 75 omzetten naar een binaire no¬ 
tie, net zoals de Commodore dat voor 
ons doet, door AND erop los te laten. 
De waarde 380 wordt binair geschre¬ 
ven als %00000001 01111100 terwijl 
75 er binair als %00000000 01001011 
uitziet. Als tweede zetten we deze bi¬ 
naire getallen onder elkaar: 

%00000001 01111100 (380) 

%00000000 01001011 (75) 

Nu hoeven we slechts de onderschei¬ 
den bits met elkaar te vergelijken aan 
de hand van de TRUTH-tabel van 
AND, om te zien wat voor een getal 
we binair als uitkomst krijgen. Zoals 
we (hopelijk) weten wordt bij AND de 
uitkomst 1 (TRUE) als beide bits een 
waarde 1 hebben. In alle andere ge¬ 
vallen is het resultaat 0. 

%00000001 01111100 (380) 

%00000000 01001011 (75) 

---- AND 

%00000000 01001000 (72) 

II IF J% < 2 AND C% > 445 THEN 

PRINT "GELUKT" 

lla IF A>0 AND A<100 THEN PRINT 

"BINNEN DE LIMIET" 

Als tweede voorbeeld een samenge¬ 
stelde AND, waarbij aan beide kanten 
aan een voorwaarde moet worden 
voldaan die tot TRUE evalueert, om 
uiteindelijk de tekst ‘GELUKT’ of ‘BIN¬ 
NEN DE LIMIET' op het scherm te krij¬ 
gen. Is slechts één van de twee ex- 
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pressies waar (TRUE) dan treedt ook 
hier de TRUTH-tabel in werking, 
waardoor we als het ware krijgen 0 
AND 1 -> 0, dus wordt er niet geprint. 

III 1F X$ = AND DEC% = 0 THEN 
DEC% = LEN(GT$)+1 

Een beetje chaotisch lijkt dit voor¬ 
beeld misschien wel op het eerste ge¬ 
zicht, maar het verhaal erbij zal wel de 
nodige duidelijkheid brengen. Deze 
regel zou kunnen dienen als onder¬ 
deel om bij een BASIC-invoerroutine 
voor getallen de offset te bepalen van 
een decimale punt binnen het getal 
GT$. Voordat deze regel wordt uitge¬ 
voerd, staat in X$ het te testen karak¬ 
ter uit GT$. DEC% dient als integer- 
vlag voor de plaats van een decimale 
punt. ^mssa&S Ê^T 



Zolang geen punt is ingetoetst blijft 
DEC% de waarde 0 houden, op het 
moment dat de punt wordt gesigna¬ 
leerd in X$ krijgt DEC% als waarde de 
plaats in de string GT$ waar de punt 
staat. Bovendien is DEC% op dat mo¬ 
ment ongelijk 0 en kan dus ook wor¬ 
den gevlagd, dat geen tweede punt 
mag worden ingevoerd. Dit laatste zit 
natuurlijk niet in bovenstaand voor¬ 
beeld. 

Waar het ons hier om gaat is, dat niet 
alleen getallen kunnen worden inge¬ 
voerd, maar ook conditie-tests met 
string-variabelen en waarden. X$ is 
duidelijk een string, terwijl we dat he¬ 
lemaal van kunnen zeggen. Waar 
we daarbij wel om moeten denken, is 
dat de expressie aan iedere kant van 
AND uiteindelijk moet kunnen evalu¬ 
eren tot een integer-waarde. 

Hoewel we met strings werken, zal 
ook de expressie X$ = uiteindelijk 
TRUE (-1) als uitkomst hebben. Geef 
maar eens PRINT X$="." op de com¬ 
puter. De uitkomst is dan geen string, 
maar gewoon 0 of -1, al naar gelang 
de inhoud van X$. Bovenstaand voor¬ 
beeld is hopelijk wel duidelijk, maar 
zou heel wat eleganter kunnen wor¬ 
den geschreven als : 

lila IF X = 46 AND DEC%=0 THEN 
DEC% = LEN(GT$) + 1 

Aan deze regel moet vooraf nog de 
conversie van X=ASC(X$) komen ter¬ 


wijl het getal 46 uiteraard hetzelfde is 
als ASC("."). De tweede manier komt 
wat dichter bij de echte taal waarin 
moet worden geprogrammeerd, maar 
is voor de minder ervaren Basic-pro- 
grammeur bijna niet te herleiden tot 
het doel. 

IV OK = -1 AND JR >1969 AND JR 
< 2000 AND MD >0 AND MD < 13 

Dit voorbeeld spreekt bijna helemaal 
voor zichzelf, denk ik. Zeker als erbij 
wordt gezegd dat de variabele JR 
staat voor het jaar en MD - hoe kan het 
anders- voor maand. Het gaat natuur¬ 
lijk om de vier keren dat AND voor¬ 
komt in deze programma-regel. Ge¬ 
test wordt of JR ligt tussen de jaren 
1970 en 1999 en de maand tussen 0 
en 13, zoals te verwachten is. De eni¬ 
ge onbekende is nu nog OK, en daar 
gaat het uiteindelijk om. In deze regel 
wordt eigenlijk heel slim gespeeld met 
AND, omdat je nu in één keer kunt tes¬ 
ten of zowel de maand als het jaar 
goed zijn ingevoerd. Om de uitkomst 
hiervan ook later nog te kunnen ver¬ 
werken hadden we iets kunnen be¬ 
denken van IF JR AND JR AND MD 
etcetera THEN OK=-1, maar op die 
manier moeten we ook de hele IF ... 
THEN routine erbij halen, en dat 
maakt de zaak alleen maar langer. 

Nu kunnen we volstaan met alleen 4 
keer de AND-operater waarbij we be¬ 
ginnen met het op TRUE (-1) zetten 
van OK. Voldoet de rest van de gestel¬ 
de condities, dan houdt OK uiteinde¬ 
lijk de waarde -1. Blijkt bijvoorbeeld 
MD een waarde 15 te hebben dan krij¬ 
gen we het volgende : 

-1 AND -1 AND -1 AND -1 AND 0, wat 
natuurlijk voor OK 0 oplevert, omdat 
ergens tussen de AND’s een nul als 
uitkomst van een expressie staat 
(M<13). 

Een dergelijke methode als in dit voor¬ 
beeld is erg aan te bevelen, hoewel ik 
moet toegeven, dat het even wennen 



Opmerkingen : Bij AND kunnen nog 
wel eens wat gekke dingen om de 
hoek komen kijken, vandaar dat het 


me niet overbodig lijkt nog het een en 
ander op te merken over deze logi¬ 
sche operator. 

Als eerste zullen we de TRUTH-tabel 
van AND nog een keer naar voren ha¬ 
len, zodat daarover geen misverstand 
kan bestaan: 

AND | T F 1 0| 


T | T F 1 0 | 1 
F | F F 0 0 | 0 

Ofwel T AND T = T F AND T = F, en 1 
AND 1 = 1 terwijl 0 AND 1 =0. 

De hiërarchie binnen Basic ligt voor 
AND, OR en NOT helemaal onderin 
de tabel, dat wil zeggen, dat eerst alle 
andere operatoren, als A , *, /, - + en¬ 
zovoort worden bewerkt door Basic, 
waarna pas AND aan de beurt komt. 
Gelukkig wijkt Basic in deze niet af 
van talen als C, FORTRAN, COBOL 
en PASCAL, waardoor het voor de 
programmeur gemakkelijk wordt ge¬ 
maakt om vooral complexe expres¬ 
sies foutloos te kunnen uitvoeren. Ook 
de tests in onze voorbeelden gaan 
daardoor correct, vooral omdat < en > 
ook voor AND aan de beurt komen. 
Wat de syntax betreft is het ook uitkij¬ 
ken met AND, omdat er aan Basic niet 
al te veel eisen gesteld worden aan 
deze operatoren. Ze lijken namelijk 
nogal op variabele-namen, waardoor 
we in sommige gevallen niet eens een 
syntax-error krijgen als het fout zit, 
maar natuurlijk wel een hele serie fou¬ 
te uitkomsten: 

100 IF K = X ADN M < 3 THEN QQ 
= 1000 

Deze regel zou een echte 'SYNTAX 
ERROR’ tot gevolg moeten hebben. 
Dat gebeurt echter niet, want de Com¬ 
modore trekt zich niet al te veel aan 
van spaties tussen de verschillende 
opdrachten en variabelen. De voor¬ 
gaande programmaregel wordt dan 
ook geïnterpreteerd ais : 

100 IFK=XADNM<3THENQQ 
=1000 

ofwel 

100 IF K = XA THEN QQ = 1000 

De rest van de 'fout' wordt door de in¬ 
terprater gezien als een aanhangsel 
van de variabele die begint met X, 
waarvan de Commodore de eerste 
twee bytes intern als naam gebruikt. 
In dit geval dus XA. De uitkomst hangt 
dus af van de waarde van XA, die 0 is 
als deze variabele verder in het pro¬ 
gramma niet voorkomt. 
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Een leuke Basic-programma regel is 
de volgende : 

IF J < 0 AND J > 200 

Hoewel qua syntax volledig correct, 
zal deze conditie het nooit tot TRUE 
brengen, vrees ik. 

Een andere fout, die erg veel gemaakt 
wordt bij het gebruik van AND en OR 
zit in de volgende regel verstopt: 

100 IF PK AND SS = 0 THEN 
STOP 

Hier wordt bedoeld te testen of zowel 
PK als SS de waarde nul hebben. Wat 
er staat laat echter het geheel al stop¬ 
pen als alleen SS de waarde 0 heeft. 
IF PK wordt nu gelezen als IF PK + 
TRUE en dat is altijd, behalve wan¬ 
neer PK de waarde nul heeft. Een juis¬ 
te syntax voor deze regel is natuurlijk: 

100 IF PK = 0 AND SS = 0 THEN 
STOP 

Een ernstige AND-(denk)fout, die ove¬ 
rigens bijna totaal onvindbaar is, zit in 
de volgende regel: 

DT = D + DM + 365* J + INT(J/4) 

+ (INT(J/4)* 4=J ) AND M > 2 

Deze regel komt uit een routine om de 
juiste weekdag te berekenen. Een 
paar afleveringen terug hebben we 
daarvoor een heel programma gepu¬ 
bliceerd. Op die wijze werd ik ook nog¬ 
al pijnlijk met bovenstaand probleem 
geconfronteerd, omdat op het eerste 
gezicht alles nogal normaal lijkt. De 
bug zit echter in M>2. Want deze ex¬ 
pressie na AND is bedoeld om, als de 
maand groter is dan februari (2), van 
het totaal 1 dag (bijna automatisch) af 
te trekken, omdat dan M > evalueert 
tot -1. Wat echter gebeurt in deze re¬ 
gel is, dat als laatste AND aan de 
beurt komt. Daardoor wordt alles tus¬ 
sen het =-teken en AND eerst geëva¬ 
lueerd, waarna dit wordt ge-AND met 
het resultaat van M>2. 

Is de maand januari of februari, dan 
komt als uitkomst 0 in DT, waardoor 
de hele boel in de war loopt, zoals te 
begrijpen is. De oplossing is natuurlijk 
om nog een paar extra haakjes toe te 
voegen bij de laatste serie expressies: 

DT = D + DM + 365* J + INT(J/4) + ( 
(INT(J/4)* 4=J ) AND M > 2) 

Nu zal de AND uitsluitend betrekking 
hebben op het laatste gedeelte, waar¬ 
in wordt getest of we al dan niet met 
een schrikkeljaar te maken hebben. 


Werkwijze : De manier waarop intern 
met de AND-operator aan het werk 
wordt gegaan, speelt zich met name 
af rond de beide floating-point accu¬ 
mulatoren. Deze 2 keer 6 bytes zijn te 
vinden in de ZERO-page van de 65XX 
processor en kunnen daardoor zeer 
snel worden benaderd en verwerkt. 
Vandaar dat we met logische ANDs 
het nodige snel kunnen doen. 



De subroutine die door AND wordt ge¬ 
bruikt, is nagenoeg identiek aan die 
van de OR-operator, alleen wordt bij 
AND een test-adres vooraf op NUL 
gezet ($00), terwijl bij OR deze locatie 
de waarde $FF krijgt toegemeten. Bei¬ 
de operatoren zijn ook nogal aan el¬ 
kaar verwant. De beide expressies 
worden vervolgens tot integer-bytes 
gestript en afzonderlijk verwerkt. 
Eerst het LOW-byte, daarna het 
HIGH-byte. De uitkomst van beide 
wordt opnieuw bewerkt en door de in¬ 
terprater naar het programma retour 
gezonden. 

ASC 

Type : BASIC functie, rekenkundige 
functie met string-argument 

Doel : De Commodore ASCII-waarde 
wordt berekend van het eerste (meest 
linkse) karakter van een string-ex- 
pressie. 

Het gebruik van ASCII is onontbeerlijk 
als afzonderlijke karakters in een 
string moeten worden getest. Bijvoor¬ 
beeld (grafische) karakters voor 
schermbesturing en opmaak. In het 
algemeen kan ASC() worden gebruikt, 
wanneer de numerieke equivalent in 
een programma gemakkelijker te han¬ 
teren is dan de string-equivalent. 

Mode : Zowel direct als in program- 
mamode kan de ASC-functie worden 
toegepast. 

Syntax : ASC(string-expressie) 


De string kan bestaan uit iedere denk¬ 
bare geldige string, compleet met de 
+ voor het aan elkaar plakken van 
strings. De door de Commodore gere¬ 
tourneerde waarden voor ASC liggen 
tussen 0 en 255. De ASCII-tabel toont 
de Commodore relaties tussen de ver¬ 
schillende getallen en hun numerieke 
waarde. Een ’ILLEGAL QUANTITY’ 
error is het gevolg als de string-ex- 
pressie geen lengte heeft, ofwel als 
LEN(string)=0. 

Gebruik : Als eerste een voorbeeld 
van een paar regels, waarbij ASC 
wordt gebruikt bij de afhandeling van 
een JA/NEE invoerroutine: 


100 GET JN$: IF JN$ = "" THEN 
100 

110 JN% = ASC(JN$) 

120 IF JN% o 74 AND JN% <> 78 
THEN PRINT "FOUTE 
INVOER": GOTO 100 
130 RETURN : REM JN%=74 of 78 

Deze routine spreekt bijna voor zich¬ 
zelf denk ik. De ASC() waarden voor J 
en N zijn respectievelijk 74 en 78. Vol¬ 
doet de invoer niet aan één van deze 
voorwaarden (regel 120) dan wordt 
opnieuw een invoer gevraagd. Regel 
110 bevat de functie ASC, waarbij van 
de ingevoerde string JN$ eerst de AS- 
Cll-waarde naar de numerieke varia¬ 
bele JN% wordt gezet. Let in regel 100 
op de test op invoer van een ’lege’ 
string. We moeten hier wel testen op 
de waarde omdat deze (helaas) 
door Commodore’s ASC() functie niet 
wordt opgevangen. Simpelweg de 
waarde 0 zou al voldoende zijn. De 
routine maakt nu, in regel 120, gebruik 
van de AND operator. We kunnen de 
routine qua algoritme helemaal veran¬ 
deren door de OR operator te gebrui¬ 
ken: 

la 

100 GET JN$: IF JN$ = "" THEN 
100 

110 JN% = ASC(JN$) 

120 IF JN% = 74 OR JN% = 78 
THEN RETURN 

130 PRINT "FOUTE INVOER" 

140 GOT0100 

Weinig verschillend in werking, iets 
korter wellicht en even snel. Maar leuk 
om deze beide varianten eens naast 
elkaar te zetten. Natuurlijk hoeft een 
dergelijke routine niet beperkt te blij¬ 
ven tot invoer van ’J’ of ’N'. Op deze 
manier is het mogelijk om nagenoeg 
alle toetsen van het toetsenbord, wat 
invoer betreft, te kunnen testen. Al¬ 
leen de echte machine-gerichte spe- 
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ciale toetsen kunnen niet via GET 
worden ingelezen. 

II FOR J = 1 TO LEN(A$) : POKE 
1024+J, ASC(MID$(S$,J,1 ))-64 : 
NEXT 

Dit voorbeeld zet de afzonderlijke ka¬ 
rakters van een string met hulp van de 
POKE-opdracht in het computervideo 
geheugen. Daarvoor moeten de ASC- 
waarden nog eens met 64 worden 
verminderd om de scherm-karakter- 
codes te kunnen emuleren. Hierin is 
de ASC functie niet te omzeilen, om¬ 
dat een POKE opdracht uitsluitend 
numerieke waarden accepteert tus¬ 
sen 0 en 255, precies de range waar¬ 
in ook de ASCII-karakters zitten, maar 
dat is uiteraard geen toeval. Kijk ook 
naar de manier waarop ASC() wordt 
gebruikt bij het uiteenrafelen van de 
string S$, met behulp van de MID$() 
functie. Aan de hand van de waarde 
van variabele J, wordt telkens één ka¬ 
rakter uit de string gehaald en van 
deze wordt de ASCII-waarde min 64 
naar het schermgeheugen gezet. 

III IF ASC(Q$)>192 THEN PRINT 
CH R$( ASC(Q$)-128) 

In deze programmaregel wordt geke¬ 
ken of ASC(Q$) een uitkomst heeft die 
groter is dan 192. Dit betekent dat we 
te doen hebben met hoofdletters, - al¬ 
thans bij de Commodore, die andere 
ASCII codes hanteert dan wie ook - 
deze worden via ASC verminderd met 
128, waardoor ze de ASCII-waarde 
van de juiste kleine letter krijgen. De 
geconverteerde waarden worden 
door de CHR$() functie, die precies 
het omgekeerde doet van de ASC() 
functie, weer als kleine letters op het 
scherm gezet. 

IV FOR J = 1 TO LEN(S$) : C(J) = 
ASC(MID$(S$,J)+J):NEXT 

Deze routine in een FOR....NEXT loop 
zorgt ervoor, dat de afzonderlijke ka¬ 
rakters uit de string S$ worden geco¬ 
deerd naar een numerieke waarde die 
wordt bewaard in de array C(xx). Om 
het ontcijferen voor onbevoegden 
’moeilijker’ te maken wordt bij iedere 
gevonden ASCII-waarde de offset in 
de string opgeteld. Hoewel een derge¬ 
lijke code gemakkelijk te breken is, 
laat het toch een manier zien om met 
hulp van ASC() hele teksten snel door 
de computer te laten coderen. Het 
vraagt echter wat vindingrijkheid, om 
uit een dergelijke routine een echte 
onbreekbare code te programmeren, 
maar het kan. In ieder geval kun je 
ASC() er prima bij gebruiken. 


: — i 

PRINTS 

CHRJ 

PRIHTS 

CHR* 

PRINTS CHRS 

PRINTS 

CHR* | 

sa 

tïïtCI 

19 


42 

A 

65 

X 

88 

Cal 

20 


43 

B 

66 

Y 

89 


21 


44 

C 

67 

Z 

90 


22 

- 

45 

0 

68 

[ 

91 

e 

92 

iV, 

115 

f4 

138 

E 

161 

i 

93 

□ 

116 

f6 

139 

(—i 

162 


94 

□ 

117 

f8 

140 

H 

163 


95 

E 

118 

BESI SSQi 

□ 

164 

B 

96 

ö 

119 

wm 

142 

□ 

165 

[a] 

97 

Ta 

120 


143 

m 

166 

[E 

98 

Qi 

121 

m 

144 

□ 

167 

E3 

99 

£ 

122 


145 


168 

0 

100 

GE 

123 

Jük 

146 

E 

169 

C=J 

J 

101 

Sj 

124 

|n?fl 

ffrral 

147 

□ 

170 

rn 

102 

m 

125 

m 

09 

148 

CE 

171 

D 

103 

@ 

126 

Brown 

149 

LM 

172 

O 

104 

n 

127 

Lt. Red 

150 

Pb 

173 

□ 

105 


128 

Ok. Gray 

151 

5j 

174 


Een deel van de ASCII tabel uit de 
Commodore System Guide. 


Let in dit voorbeeld ook nog even op 
de manier waarop MID$() wordt ge¬ 
bruikt, zonderde laatste parameter. In 
dit soort gevallen wordt door de com¬ 
puter het restant van de string in z’n 
geheel genomen. Voor de ASC-func- 
tie maakt dit niet uit, want deze heeft 
uitsluitend betrekking op het eerste 
karakter in de aangeboden stringex- 
pressie, ongeacht de lengte van de 
string. Voor het computergeheugen 
maakt een dergelijke methode echter 
wel uit, omdat op deze wijze het ge¬ 
heugen veel eerder vol raakt en dus 
meer (onnodig) werk moet worden 
verzet. 

Opmerkingen : De tegenhanger van 
de ASC() functie is de functie CHR$(). 
Deze functie doet precies het tegen¬ 
gestelde van de ASC() functie. 

Bij de Commodore Basic hebben we 
te maken met een lastige ’bug' waar 
het de ASC() functie betreft, die wordt 
losgelaten op een lege string We 
krijgen dan een foutmelding. Daar 
moet bij het programmeren terdege 
rekening mee worden gehouden. Zie 
hiervoor voorbeeld I. Let er wel op, dat 
de volgende manier wel een geldige 
ASC() verwerking is, die ook door de 
Commodore wordt geaccepteerd: 

lb 

100 GET JN$: IF JN$ = "" THEN 
JN$=CHR$(0) 

110 JN% = ASC(JN$) 

120 IF JN% = 74 OR JN% = 78 
THEN RETURN 

130 IF JN% o 0 THEN PRINT 
"FOUTE INVOER" 

140 GOT0100 


Natuurlijk is het in bovenstaan¬ 
de listing een beetje onzinnig 
om de verandering van een 
lege string naar CHR$(0) te 
forceren, omdat we later alleen 
maar last hebben van deze 
waarde (zie regel 130, waar nu 
een conditie moet worden in¬ 
gebouwd) maar vanwege eer¬ 
der gebruik van dit voorbeeld 
zal het verschil tussen 
CHR$(0) en de lage sting ("") 
hiermee wel duidelijk zijn. 

De ASCII-waardentabel van 
Commodore wijkt helaas aan¬ 
zienlijk af van de ASCII-tabel 
zoals die wordt gebruikt door 
alle andere computermerken, 
zoals bijvoorbeeld de IBM- 
compatibles en MSX. Bij de 
Vreemde’ grafische tekens is 
dat natuurlijk niet zo erg, maar 
de verschillen tussen de karak¬ 
ters en leestekens, boven- en 
onderkast, zijn helaas aanzien¬ 
lijk. Hoewel Commodore de ei¬ 
gen tabel, die dus in feite niets te ma¬ 
ken heeft met de echte 'American 
Standard Code on Information Inter- 
change’, al in 1974 heeft ontwikkeld, 
kan dat toch geen excuus zijn, om nog 
steeds een afwijkende tabel te gebrui¬ 
ken. 

Werkwijze : Als eerste wordt door de 
Commodore getest of er een legale 
string-expressie tussen de haken 
staat van de ASC() functie. Hier wordt 
dan ook meteen een ’ILLEGAL 
QUANTITY ERROR’ gegenereerd bij 
de befaamde string met lengte 0. 
Deze string wordt naar RAM high-me- 
mory gezet, als een afzonderlijke va¬ 
riabele, compleet met pointeren leng- 
te-byte op de stack. De primaire 
ASC() subroutine haalt vervolgens 
deze bytes weer op van ’t stack, en 
kijkt via de pointer-bytes naar de eer¬ 
ste byte (karakter) van de string. Om¬ 
dat een string al automatisch in ASC() 
waarden wordt opgeslagen in RAM, 
hoeft de ASC()-functie eigenlijk niet 
anders meer te doen, dan deze waar¬ 
de toe te kennen aan de gevraagde 
numerieke variabele, of, via de stan¬ 
daardroutines meteen op het scherm 
te zetten. 

Jammer van de bug, die bijna in alle 
bestaande Commodore-computerty- 
pes voorkomt, maar voor de rest een 
goed werkende functie. 

J.B. 
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Syntax Checksum 


1 Het overtikken van een listing kan een heel karwei 
| zijn en als u een beetje normaal mens bent dan 
| maakt u daarin beslist een aantal fouten. Nu is niets 
1 moeilijker om de fouten uit je eigen werk te halen. Al 
| geruime tijd heeft Jan Bodzinga hiervoor een zgn. 

Checksum-programma geschreven. Om de vele 
I nieuwe lezers van Commodore-info te helpen volgt 
| hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
| vreemd dat misschien ook lijkt, echt mogelijk is om 
| met behulp van dit programma de fouten in elke door 
ons geplaatste listing op te sporen. 

| Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

I 2. U tikt het RUN commando in. Mocht het program- 
I ma de boodschap 'FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
| dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap 'data is weggezet 
| checksum testen met sys...'komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
S machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan, 
j Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

| Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de ge¬ 
hele listing opnieuw te gaan intikken. Als u nu een 
1 programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen laden(wel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

| Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelf- 
1 de lijst staat ook achter elk door ons geplaatste pro 
1 gramma. Wijkt nu een nummer achter een regelnum- 
| mer af van het nummer dat in het blad staat dan 
heeft u in die regel iets anders ingetikt dan er in het 
blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 
| de F1 of F7 toets. Het is uitermate belangrijk dat u 
j goed met dit programma overweg kunt en mocht u 
| het niet goed werkend krijgen bel dan gerust even 
met onze listingservice telefoonlijn. (Maandag 17.00 - 
| 21.00 uur. Telefoonnummer 02155-25162.) 


1 rem ****************************** 

*** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

II 

4 rem blijft dit programma in het ge 

5 rem heugen, laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 

*** 

10 i=49152 :rem beginadres 


M' 


20 reada:ifa<0then40:rem data ingelez 

en 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if bol6844thenprint" [SHIFT-CLR] fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei,a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 prinfdata [SPACE] is [SPACE] weggezet 

II 

95 print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 

192 

120 data 32,73,192,208,1,96,32,225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 

192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


REGEL 

i 

249 

REGEL 

100 

183 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

183 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 

38 

REGEL 

190 

73 

REGEL 

40 

57 

REGEL 

200 

79 

REGEL 

50 

14 

REGEL 

210 

109 

REGEL 

55 

251 

REGEL 

220 

106 

REGEL 

60 

192 

REGEL 

230 

225 

REGEL 

70 

42 

REGEL 

240 

16 

REGEL 

80 

244 

REGEL 

250 

163 

REGEL 

90 

245 

REGEL 

260 

92 

REGEL 

95 

237 

REGEL 

270 

22 
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PRINT OUT C-64 met o.a. Easybase 


Herby C64 


Herby een flitsend spel zo noemt de schrijver van het 
programma het. De schrijver van dit aktiespel is Mi- 
chiel Geurts uit Horst. In het begin is het nog wel te 
volgen maar kom je echter een paar levels verder 
vergeet het maar. Denkt U deze uitdaging aan te 
kunnen tik dan snel de listing in en probeer het maar. 
O ja de schrijver stelt zich niet aansprakelijk voor in¬ 
gegooide beeldbuizen waarbij wij ons dan bij aanslui¬ 
ten. 

1 poke 56,48:poke55,0:clr 

2 naam$="[CTRL-3]michiel":hl=2:a$=ch 
r$ (141) :dimb$(11) :dima$(19) :gosub8 
3 

3 forr=0to23:readh$:forb=ltolen(h$)s 
tep2:c$=mid$(h$,b,1):d$=mid$(h$,b+ 

1,1) 

4 gosub5:c=16*g:c$=d$:gosub5:c=c+g:p 
oke4 9152+t,c:t=t+l:nextb, r:sys4 982 
9:goto7 

5 g=asc(c$)-48:ifg>9theng=g-7 

6 return 

7 fori=0to7:pokel2288+i,peek(12656+i 
):next:gosub99:gosublll:gosub 55:g 
osub75 

8 print"[SHIFT-CLR]":gosub73:print"[ 
HOME][12xCRSR-D0WN][12xCRSR-RIGHT] 
[CTRL-3][CRSR-LEFT] ";1 

9 poke87,.:poke88,.:poke89,1:poke90, 

1:poke91,1:poke92,23:poke93,32:pok 
e94, . 

10 poke49164,232:poke 95,.:poke49701, 
150+1*20:sys49747:ifpeek(2)=lthenl 
5 

11 ifpeek(89)=peek(91)andpeek(90)=pee 
k (92)thenl5 

12 print"[SHIFT-CLR][C0M-6][6xCRSR-D0 
WN]";tab(11);"o.k.[SPACE]!!!":prin 
t"[2xCRSR-DOWN][6xSPACE]je[SPACE]h 
ebt[SPACE]level";1;"overwonnen 

13 1=1+1:print"[2xCRSR-DOWN][8xSPACE] 
let[SPACE]op[SPACE]nu[SPACE]komt[S 
PACE]level[COM-7]";1:forop=0to4500 
:next:goto8 

14 poke49164,232:poke95,.:poke49701,1 
50+1*10:sys49747:ifpeek(2)=lthenl5 

15 print"[HOME][CRSR-DOWN]";tab(31)"[ 
CTRL-3][3xCOM-+][CRSR-DOWN][3xCRSR 
-LEFT][COM-+][CRSR-DOWN][CRSR-LEFT 
][COM-+][CRSR-DOWN][CRSR-LEFT][3xC 
OM +][2xCRSR-DOWN][3xCRSR-LEFT][3x 
COM-+][CRSR-DOWN][3xCRSR-LEFT][COM 

+][CRSR-DOWN][CRSR-LEFT][COM-+][C 
RSR-DOWN][CRSR-LEFT][CRSR-DOWN][3x 
COM—h] [CRSR-DOWN] [3xCRSR-LEFT] [COM 

+][CRSR-RIGHT][COM-+][CRSR-DOWN][ 
3xCRSR-LEFT][3xCOM-+] 

16 print"[CRSR-DOWN][3xCRSR-LEFT][COM 

+][CRSR-RIGHT][COM-+][CRSR-DOWN][ 
3xCRSR-LEFT][CRSR-DOWN][3xCOM-+][C 
RSR-DOWN][3xCRSR-LEFT][COM-+][CRSR 
-DOWN][CRSR-LEFT][3xCOM-+][CRSR-DO 
WN][CRSR-LEFT][COM-+][CRSR-DOWN][3 
xCRSR-LEFT][3xCOM-+][CRSR-DOWN][3x 
CRSR-LEFT][CRSR-DOWN][COM-+][CRSR- 
RIGHT] [COM-+][CRSR-DOWN][3xCRSR-LE 
FT][3xCOM-+][CRSR-DOWN][3xCRSR-LEF 
T][COM-+][CRSR-RIGHT][COM-+]" 


17 fori=0to200:poke53280, i:next:poke5 
3280,.:fori=0tol000:next 

18 print"[CTRL-8][SHIFT-CLR][CTRL-7][ 
5xCRSR-DOWN][4xCRSR-RIGHT]jammer." 

19 print"[2xCRSR-DOWN][4xCRSR-RIGHT]u 
[SPACE]hebt[SPACE]level[SPACE]";1; 
"bereikt":ifl<hlthenforyy=0to5000: 
next:goto30 

20 hl=l:print"[2xCRSR-DOWN][4xCRSR-RI 
GHT]u[SPACE]hee ft[SPACE]daarmee[SP 
ACE]de[SPACE]hoogste[SPACE]level": 
print"[CRSR-DOWN][4xCRSR-RIGHT]geh 
aald[SPACE]!!!!" 

21 print"[CRSR-DOWN][4xCRSR-RIGHT]typ 
[SPACE]uw[SPACE]naam[SPACE]in[SPAC 
E]mbv[SPACE]de[SPACE]joystick.":fo 
ri=1948tol974rpokei,i-1948 

22 pokel948,62:next:ii=13:naam$="[CTR 
L 3]":pokel975,31:goto29 

23 pokel988+ii,90:if(peek(56320)and4) 
=0thenpokel988+ii,32:ii=ii-l:ifii< 
0thenii=0 

24 if (peek(56320)and8)=0thenpokel988+ 
ii,32:ii=ii+l:ifii>27thenii=27 

25 if (peek(56320)andl6)>0then23 

26 ab$=chr$(64+ii):ifab$="@"then30 

27 x=len(naam$):if(ii=27andx>l)orx>10 
thennaam$=left$(naam$,x-1):goto29 

28 naam$=naam$+ab$ 

29 print"[HOME][20xCRSR-DOWN][6xCRSR- 
RIGHT]";naam$;"F[SPACE]”:fori=0tol 
00:next:goto23 

30 fori=0to2000:gosub99:gosublll:goto 
8 

31 dataa658bdl2c08d0cc0a659a45aca8659 
845a60e8c8ca88a657bd28c08d22c0a65b 
a45ce886 

32 data5b845c60e888cac8a9198c33c018e9 
13a8a90085fba90485fcl8a92865fb85fb 
a90065fc 

33 data85fc88d0f08a65fb85fba90065fc85 
fc6086fd9818698085fea200alfd6a60a6 
59a45a20 

34 data2cc0a55da20081fb2000c0202cc0a2 
00alfb855da94481fba45aa6592059c090 
0ba458c8 

35 datac004d002a000845860a65ba45c202c 
c0a920a20081fb2016c0202cc0a200alfb 
c92ed00d 

36 datal8a905655e855ea900655f855fa945 
81fba45ca65b2059c0900ba457c8c004d0 
02a00084 

37 data5760ae00dca55bc90cf012a55cc90c 
f001608a2904f0118a2908f01c608a2901 
f0268a29 

38 data02f03160204bcle001f006e00ff002 
caca4c3dcl204bcle009f006e017f002e8 
e84c3dcl 

39 data204bclc009f006c017f002c8c84c3d 
cl204bclc001f006c0Off0028888865b84 
5c202cc0 

40 dataa200a94581fb60a65ba45c202cc0a2 
00a92081fba45ca65b608a8665e00c3005 
38a918e5 

41 data6560a65b205dcl8569a65c205dcl85 
6aa659205dcl856ba65a205dcl856ca557 
a6694ab0 

42 data02a66aa558a46b4ab002a46c60a65a 
a5586ab002a659e00cf00160206acl206a 
C1866984 

43 data6ae46af0fla900e46al002a901856d 
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a658f020e002f029100d2014c2a2e86ab0 
02a2ca4c 

44 datafacl2014c2a2ca6ab002a2e84cfacl 
2014c2a2b86ab002a2c84cfacl2014c2a2 
c86ab002 

45 dataa2b88e04c28e05c2a659a45ae8e886 
59845a202cc0a944a20081fb60a659a45a 
202cc0a9 

46 data20a20081fba56d60a2a0a000c8d0fd 
e8d0f860a200a55dc945d00bf004c55cd0 
05a20186 

47 data0260a55ec93dd0f7a55fc904d0fla2 
028602602067c02099cl2099c020dac020 
2fc2a502 

48 datad0242024c2a559c55bd007a55ac55c 
d00160ad00dc2910d00e2099c020dac020 
2fc2a502 

49 dataf0046020dac02024c2a559c55bd0bc 
a55ac55cd0b660a6fba4fc4c59c0a9d08d 
bac2a930 

50 data8dbdc278a9338501a210a000b900e0 
990030c8d0f7eebac2eebdc2cad0eca937 
850158a9 

51 datalf8dl8d078a9e38dl503a9008dl403 
5860a910d005a0184cecc2a0008ce2c2a2 
00b90fc3 

52 data9d2032c8e8e018d0f44c31eace04c3 
a908d0f6a9088d04c34celc2cl21121c38 
4484833c 

53 data7ee7f7ffff7e3cff81bda5a5bd81ff 
080404699el010083c76f3ffffff7e3c00 
7e425a5a 

54 data 427e00a6fba4fc202cc0a5fda2008 
lfb60 

55 be=49822:a$(1)="[SHIFT-CLR][CTRL-6 
][COM-A][23xSHIFT-*][COM-S]":print 
chr$(142) 

56 a$(0)="(6xCRSR-UP]":a$(2)="B. 

.... [3xSPACE].B" 

57 a$(3)="B.(COM-A][8xSHIFT-*][3xSPAC 
E][8xSHIFT-*][COM-S]@B" 

58 a$ (4) ="B.B.[3xSPACE]. 

. B. B" 

59 a$(5)="B.B.[COM-A][6xSHIFT-*][3xSP 
ACE][6xSHIFT-*][COM-S].B.B" 

60 a$ (6) ="B . B . B.[3xSPACE].B 

. B. B” 

61 a$(7)="B.B.B.[COM-A][4xSHIFT-*][3x 
SPACE][4xSHIFT~*][COM-S].B.B.B" 

62 a$ (8)="B.B.B.B. . . . [3xSPACE] . . . .B.B 
. B. B" 

63 a$(9)="B.B.B.B.[COM-A][2xSHIFT-*][ 
3xSPACE][2xSHIFT-*][COM-S].B.B.B.B 

U 

64 a$(10)="B.B.B.B.B..[3xSPACE]..B.B. 
B.B.B" 

65 a$(11)="B.B.B.B.B.[COM-A][3xSHIFT- 
*][COM-S].B.B.B.B.B" 

66 a$(12)="B[9xSPACE]B[COM-7][3xSPACE 
][CTRL-6]B[9xSPACE]B" 

67 a$(18)="B.B.B.B.B.[COM-Z][3xSHIFT- 
*][COM-X].B.B.B.B.B" 

68 a$ (13)="B.B.B.B. [COM-Z] [2xSHIFT-*] 
[3xSPACE][2xSHIFT-*][COM-X].B.B.B. 
B" 

69 a$(14)="B.B.B.[COM-Z][4xSHIFT-*][3 
xSPACE][4xSHIFT-*][COM-X].B.B.B" 

70 a$(15)="B.B.[COM-Z][6xSHIFT-*][3xS 
PACE][6xSHIFT-*][COM-X].B.B" 

71 a$(16)="B.[COM-Z][8xSHIFT-*][3xSPA 
CE][8xSHIFT-*][COM-X].B" 


72 a$(17)="[COM-Z][23xSHIFT-*][COM-X] 
":return 

73 print"[CTRL-6][SHIFT-CLR]":fori=lt 
ol2:printa$(i);a$;:next:printa$(12 
) ; a$;a$(12); 

74 printa$;a$(18);:fori=13tol7:printa 
$; a$(10-((i-13)*2));a$;a$(i); :next 
:return 

75 ce=50688:gosub78:fori=lto23step2:p 
oke251,i:poke252,i:sysbe:gosub77 

7 6 poke252,24-i:sysbe:gosub77:next:fo 

ri=87to95:readd:pokei,d:next:retur 
n 

77 poke(peek(254)*256)+peek(253) , 1:re 
turn 

78 fori=ceto50710:reada:pokei,a:next: 
sysce:return:data 169,128,133,252, 
169, 0 

79 data 133,251,168,145,251,200,208,2 
51,230,252,166,252,224,160,208, 243 
,96 

80 data 0,0,1,1,1,23,20,0,0 

81 fori=ltol0 :forii=ltolen(b$(i)):pri 
ntmid$(b$(i),1,ii);:foriii=0to50: 

82 nextiii,ii,i 

83 c$(1)="[3xCRSR-UP][COM-6][6xCRSR-R 
IGHT][COM-+][SPACE][COM-+][SPACE][ 
3xCOM-+][SPACE][3XCOM-+][SPACE][3x 
COM-+][SPACE][COM-+][SPACE][3xCOM- 
+][19xCRSR-RIGHT][COM-+][SPACE][CO 
M +][SPACE][COM-+][3xSPACE][COM-+] 
[SPACE][COM-+][SPACE][COM-+][SPACE 
][COM-+][SPACE][COM-+][SPACE][COM- 
+ ] 

84 c$(2)="[COM-6][6xCRSR-RIGHT][3xCOM 

+][SPACE][2xCOM-+][2XSPACE][2xCOM 

+ ] [COM--] [SPACE] [2xCOM-+] [COM—] [ 
SPACE][COM-+][SPACE][2xCOM-+][20xC 
RSR-RIGHT][COM-+][SPACE][COM-+][SP 
ACE][COM-+][3xSPACE][COM-+][SPACE] 
[COM-+][SPACE][COM-+][SPACE][COM-+ 
][SPACE][COM-+][SPACE][COM-+] 

85 c$(3)="[COM-6][6xCRSR-RIGHT][COM-+ 
][SPACE][COM-+][SPACE][3xCOM-+][SP 
ACE][COM-+][SPACE][COM-+][SPACE][3 
XCOM-+][SPACE][COM-+][SPACE][3xCOM 

+][18xCRSR-RIGHT][23xCOM-] 

86 b$(4)="[CTRL-1][CRSR-DOWN][COM-7][ 
2xSPACE]Zorg[SPACE]dat[SPACE][COM- 
6]Herbie[COM-7][SPACE],[SPACE]het[ 
SPACE]balletje[SPACE],alle[2xSPACE 
] " :b$(1)=c$(1) 

87 b$(5)="[CTRL-1][CRSR-UP][COM-7][2x 
SPACE]punt j e s[SPACE]op[SPACE]eet, [ 

SPACE] maar.[2xSPACE] pas [SPAC 

E]op,[SPACE]":b$(2)=c$(2) 

88 b$(6)="[CTRL-1][CRSR-DOWN][COM-7][ 
2xSPACE]zorg[SPACE]dat[SPACE]de[SP 
ACE]computer,de[SPACE]haak,jou[SPA 
CE]niet":b$(3)=c$(3) 

89 b$(7)="[CTRL-1][CRSR-DOWN][COM-7][ 
2xSPACE]te[SPACE]pakken[SPACE]krij 
gt.[SPACE]Je[SPACE]kunt[SPACE]niet 
[SPACE]meer" 

90 b$(8)="[CTRL-1][CRSR-DOWN][COM-7][ 
2xSPACE]achteruit[SPACE]als[SPACE] 
je[SPACE]eenmaal[SPACE]in[SPACE]ee 
n[SPACE]gang" 

91 b$(9)="[CTRL-1][CRSR-DOWN][COM-7][ 
2xSPACE]zit.[SPACE]Duw[SPACE]je[SP 
ACE]op[SPACE]fire,[SPACE]gaat[SPAC 
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print-out print-out print-out print-out print-out 


E]ie[SPACE]sneller" 

92 b$(10)="[CTRL-1][CRSR-DOWN][COM-7] 

[2xSPACE]maar[SPACE]dan[SPACE]kan[ 
SPACE]hij[SPACE]maar[SPACE]een[SPA 
CE]baan[SPACE]" 

93 b$(11)="[CTRL-1][CRSR-DOWN][COM-7] 
[2xSPACE]springen[2xSPACE](?)[3xSP 
ACE](1[SPACE]min.[SPACE]geduld)[16 
xSPACE][CTRL-1][CRSR-DOWN][COM-6][ 
4xSPACE]Michiel[CTRL-1] 

94 poke53280,.:poke53281,.:printchr$( 
14);chr$(8);"[SHIFT-CLR][CTRL-1]": 
fori=ltoll: 

95 print"[CRSR-DOWN][CRSR-LEFT][SPACE 
][CRSR-UP]":forii=ltolen(b$(i)):pr 
intmid$(b$(i) , ii, 1) ; 

96 print"[CRSR-DOWN][2xCRSR-LEFT][SPA 
CE][COM-T][CRSR-UP]";: forir=0tol :n 
extir,ii,ï:return 

99 print"[CTRL-2][SHIFT-CLR]";chr$(14 
2):fori=1028tol059:pokei,70:pokei+ 
960,70:nexti:fori=0to24 

100 pokel028+i*40,70:pokel059+i*40,70: 
next:print"[HOME][5xCRSR-D0WN]";ta 
b(4)c$(l) : 

101 printtab(4)c$ (2) :printtab(4)c$ (3) : 
print"[2xCRSR-DOWN][lOxCRSR-RIGHT] 
[COM-7]joystick[SPACE]in[SPACEJpor 
t[SPACE]ii" 

102 print"[CRSR-DOWN][14xCRSR-RIGHT][C 
TRL 3]E[COM-7][2xSPACE]herbie":pri 
nt"[CRSR-DOWN][14xCRSR-RIGHT][CTRL 

3]D[COM-7][2xSPACE]haak":kl=l1 

103 print"[CRSR-DOWN][14xCRSR-RIGHT]hi 
-level[SPACE]:";hl,,,"[CRSR-DOWN][ 
3xSPACE]door[SPACE]";naam$ 

104 print"[HOME][22xCRSR-DOWN]";tab(12 
);"duw[SPACE]op[SPACE]'n[SPACE]toe 
ts . " 

105 ifkl=llthenkl=12:gotol09 

106 ifkl=12thenkl=15:gotol09 

107 ifkl=15thenkl=l:gotol09 

108 ifkl=lthenkl=ll 

109 foryi=0tol0 :gosubllO:next:getga$:i 
fga$=""thenpoke646,kl:gotol04 

110 1=1:return 

111 gosub 120:gosubl20:print"[4xCOM—h] 
[CRSR-DOWN][4xCRSR-LEFT][COM-+][CR 
SR-DOWN][CRSR-LEFT][4xCOM-+][CRSR- 
DOWN] [CRSR-LEFT][COM-+][CRSR-DOWN] 
[4xCRSR-LEFT][4xCOM-+]" 

112 gosubl20:print"[COM-+][2xSPACE][CO 
M +][CRSR-DOWN][4xCRSR-LEFT][COM-+ 
][2xSPACE][COM-+][CRSR-DOWN][4xCRS 
R-LEFT][4XCOM-+][CRSR-DOWN][CRSR-L 
EFT][COM-+][CRSR-DOWN][CRSR-LEFT][ 
COM-+]" 

113 gosubl20:print"[4xCOM-+][CRSR-DOWN 
][CRSR-LEFT][COM-+][CRSR-DOWN][3xC 
RSR-LEFT][3xCOM-+][CRSR-DOWN][CRSR 
-LEFT][COM-+][CRSR-DOWN][4xCRSR-LE 
FT][4XCOM-+]" 

114 gosubl20:print"[COM-][2xCOM-+][CO 
M ][CRSR-DOWN][4xCRSR-LEFT][COM-+ 

][2xSPACE][COM-+][CRSR-DOWN][2xCRS 
R-LEFT][COM-+][COM--][CRSR-DOWN][3 
xCRSR-LEFT][COM-+][COM—][CRSR-DOW 
N][3xCRSR-LEFT][4xCOM-+]" 

115 gosubl20:print"[COM-][COM-+][CRSR 
-DOWN][CRSR-LEFT][COM-+][CRSR-DOWN 
][CRSR-LEFT][COM-+][CRSR-DOWN][CRS 


R-LEFT][COM-+][CRSR-DOWN][2xCRSR-L 
EFT][COM-][COM-+][COM-]" 

116 gosubl20:print"[4xCOM-+][CRSR-DOWN 
][4xCRSR-LEFT][COM-+][2xSPACE][COM 
+][CRSR-DOWN][4xCRSR-LEFT][COM-+] 
[2xSPACE][COM-+][CRSR-DOWN][4xCRSR 
-LEFT][COM-+][2xSPACE][COM-+][CRSR 
-DOWN][4xCRSR-LEFT][4xCOM-+]" 

120 fori=0to500:next:print"[SHIFT-CLR] 

[8xCRSR-DOWN][CTRL-3]";tab(14);:re 
turn 

** EINDE LISTING herbie ** 
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regel 

33 

221 

regel 

72 

134 

regel 

113 

110 

regel 

34 

110 

regel 

73 

0 

regel 

114 

91 

regel 

35 

51 

regel 

74 

95 

regel 

115 

194 

regel 

36 

82 

regel 

75 

151 

regel 

116 

95 

regel 

37 

84 

regel 

76 

80 

regel 

120 

9 

regel 

38 

103 

regel 

77 

91 




regel 

39 

66 

regel 

78 

230 





easybase C64 


Nadat U dit programma heeft ingetikt, door de lengte 
zal dit waarschijnlijk wel de nodige uurtje kosten, be¬ 
schikt U over een prima database. Het grote voordeel 
hierbij is dat het programma volledig ikoon gestuurd 
is. Dit houdt in dat een keuze gemaakt kan worden 
met de joystick, het onderdeel van uw keuze aanwij¬ 
zen, op de vuurknop drukken, dat is alles dat nodig is 
om de informatie op uw scherm te krijgen. Het is een 
programma van Sander van Schaik uit Bergen. 

1 rem *** easybase 64 *** 

2 rem door sander-willem 

3 rem van schaik,jan 1988 

4 rem 

10 pl=49384:v=53248:so=53269:sf=ll:sp 

=2042:dima$(5,200):n=0:poke53272,2 
3 

20 f$(0)="Achternaam":f$(1)="Voornaam 

. . " :f$ (2) ="Adres." : f$ (3)="Woon 

plaats" 

30 f$ (4)="Postcode..":f$(5)="Telefoon 

M 

40 restore:ir=49152:ip=49416:fort=lto 
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6:readsp(t):next:data55,87,119,151 
,183,215 

fort=704to7 67:poket,0:next:forx=4 9 
152to49152+287 

ready$:h=asc(left$(y$,1))-48:l=asc 
(right$(y$,1))-48 

y=l+(1>9)*7+16*(h+ (h>9)*7) :pokex,y 
: next 

fort=832to959:reada:poket,a:next:f 
ort=15232tol6383:reada:poket,a:nex 
t 

fort=v+4tov+14step2:poket,27:next: 
sys ir:fort=41to46:pokev+t,1:next 
pokeso,255:fort=lto6:pokev+3+2*t,s 
p(t):next 

gosub860:fort=0to5:pokesp+t,240+t: 
next 

syspl, 2,4,"Invoeren":syspl,6,4,"Zo 
eken":syspl,10,4,"Info" 
syspl,14,4,"Sorteren":syspl, 18,4," 
Save/Load":syspl,22,4,"Stoppen" 
gosub 830:onfgotol50,370,400,520,5 
70,790:gotol40 

gosub860:pokesp,252:pokesp+1,253:p 
okesp+2,254:pokesp+3,246:pokesp+4, 
sf 

pokesp+5,sf:syspl,1,4,"Nieuw":sysp 

1,2,4,"record":syspl,5,4,"Record" 

syspl,6,4,"wijzigen":syspl,9,4, "Re 

cord":syspl,10,4,"schrappen" 

syspl,13,4,"Hoofdmenu" 

gosub830:onfgoto210,270,310,200:go 

tol90 

goto 110 

n=n+l:syspl, 2,15,"Record#"n:ifn>20 
OthengotollO 

syspl, 0,15,"INVOEREN":fort=0to5:sy 

spl, t+3, 15, f$ (t) :next 

fort=0to5:in$="":gosub890:a$(t,n)= 

in$:next:syspl,10,15,"zo[SPACE]goe 

d[SPACE]?[SPACE](j/n)" 

getw$:ifw$=""then240 

ifw$="n"thenn=n-l:goto210 

goto 110 

syspl,0,15,"WIJZIGEN":syspl, 20, 15, 
"Record?...":t=17:in$="" 
gosub890:r=val(in$):ifr<lorr>nthen 
gotollO 

syspl,2,15,"Record#"r 
fort=0to5:syspl,t+3,15,f$(t):in$=" 
":gosub890:a$(t,r)=in$:next:gotoll 
0 

syspl,0,15, "RECORD[SPACE]SCHRAPPEN 
":syspl,20,15,"Record?...":t=17:in 
$=" 11 

gosub890:r=val(in$):ifr<lorr>nthen 
gotollO 

gosub860:pokesp,255:pokesp+l, 246:p 
okesp+2,sf:pokesp+3,sf:syspl, 1,4," 
Record" 

syspl,2,4,"weg.":syspl,5,4,"Menu" : 
gosub830:iff=2thengotoll0 
iff<>lthen330 

fort=r+lton:foru=0to5:a$(u,t-1)=a$ 
(u, t) :nextu,t:n=n-l:a$(0,n+1)="" : g 
oto 110 

syspl,0,15,"ZOEKEN":syspl,20,15,"N 

aam?.":t=17:in$="":gosub890 

forj=lton:fori=0to5:ifa$(i,j)=in$t 

hengosub970 

nexti,j:gotollO 


gosub860:syspl,0,15,"INFO":pokesp, 
247:pokesp+1,250:pokesp+2,251 
syspl,1,4,"Bladeren":syspl,5,4,"Ge 
heugen":syspl,9,4,"Lijst":syspl,13 
,4,"Menu 

pokesp+3,246:pokesp+4,sf:pokesp+5, 
sf:gosub830:onfgoto450,460,490,440 
goto 420 
goto 110 

syspl,0,15,"BLADEREN":forj=lton:go 

sub970:next:gotollO 

syspl,0,15,"GEHEUGEN":syspl,3,15," 

Er[SPACE]zijn[SPACE]nog[SPACE] 

print200-n"records":syspl,4,15,"vr 

ij.":fort=lto250:next 

wait56320,16,16:gotollO 

syspl,0,15,"LIJST":fort=ltonstepl5 

:foru=0tol4 

syspl,u+3,15,"Ree.#"t+u""a$(0,t+u) 

:nextu:wait56320,16,16:gosub860:ne 
xtt 

goto 110 

gosub860:syspl,0,15,"SORTEREN":pok 
e53280,0 

fori=n-ltolstep-l:f1=0:forj=ltoi:i 
fa$(0, j)>a$(0,j+l)thenfl=l:gosub56 
0 

nextj:iff l=0theni=l 
nexti:poke53280,6:gotollO 
fort=0to5:q$="":q$=a$ (t,j) :a$ (t,j) 
=a$(t,j+1):a$(t,j+1)=q$:nextt:retu 
rn 

pokeso,255 

sysir:fort=lton:foru=0to5:ifa$(u,t 
)=""orleft$(a$(u,t) , 1)="[SPACE]"th 
ena$(u,t)="?" 

nextu,t:gosub860:pokesp,248:pokesp 
+1,249:pokesp+2,238:pokesp+3,239 
pokesp+4,246:pokesp+5,sf:syspl,9,4 
,"Save":syspl,13,4,"Load":syspl,2, 
4,"tape" 

syspl,6,4,"tape":syspl,10,4,"disk" 

:syspl,14,4,"disk" 

syspl,1,4,"Save":syspl,5,4,"Load": 
syspl,17,4,"Hoofdmenu":gosub830:sy 
sip 

pokeso, 0:onfgoto670,740,650,720,64 
0:goto570 
sysir:goto 110 

syspl, 0,15, "SAVE[HOME] [2xSPACE]":f 
ort=lto250:next:wait56320,16,16 
print"[SHIFT-CLR]":openl,8,2,"@0:d 
ata,s,w":goto690 

syspl,0,15,"SAVE[HOME][2xSPACE]":f 
ort=lto250:next:wait56320,16,16 
print"[SHIFT-CLR]":openl,1,2,"data 

II 

print#l,n:fors=lton:print#l,a$(0,s 
):print#l,a$(1,s):print#l,a$(2,s) 
print#l,a$(3,s):print#l,a$(4,s):pr 
int#l,a$(5,s):next:closel 
print"Wacht[SPACE]even.":goto40 
syspl,0,15,"LOAD[HOME][2xSPACE]":f 
ort=lto250:next:wait56320,16, 16 
print"[SHIFT-CLR]":openl, 8,2, "0:da 
ta,s,r":goto760 

syspl,0,15,"LOAD[HOME][2xSPACE]":f 
ort=lto250:next:wait56320, 16, 16 
print"[SHIFT-CLR]":openl,1,0,"data 

input#l,n:fors=lton:input#l,a$(0,s 
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):input#1,a$(1,s): inputfl, a$(2,s) 
input#l,a$(3,s) :input#l,a$ (4,s) :in 
put#l,a$ (5,s) :next:closel 
prinf'Wacht[SPACE]even.":goto40 
syspl,0,15,"Wilt[SPACE]u[SPACE]sto 
ppen[SPACE](J/N)” 
getw$:ifw$=""then800 
ifw$="j"thenpoke288, 0:sys288 
goto 110 

pokeso,255:wait56320,16,16:x=peek( 
252) 

fort=6tolstep-l:ifx=>sp(t)thenf=t: 
return 

next:goto 830 

print"[SHIFT-CLR][CTRL-2]":poke532 
80,6:poke53281,6:fory=0to24:syspl, 
y, 13, "[COM-L] [HOME]" 
syspl,y,0,"[COM-J][HOME]":next 
syspl,0,0,"[14xC0M-0]":syspl,24,0, 

"[14xCOM-U][HOME]":return 

syspl,t+3,25,":"; 

getw$:ifw$=""then900 

w=asc(w$):ifw>95orw=44orw=58orw=59 

then900 

l=len(in$):iflen(in$)>13thenreturn 
ifw>31thenin$=in$+w$:printw$;:goto 
900 

ifw=13andlthenreturn 
ifw=20andlthenin$=left$(in$, 1-1) :p 
rintw$; 
goto 900 

fort=0to5:syspl,t+3,26,"[14xSPACE] 

":next 

fort=0to5:syspl,t+3,15,f$(t)+":"+a 
$ (t,j) :next:syspl,2,15,"Record#"+s 
tr$(j) 

wait56320,16,16:return 
dataa9,03,8d,15,d0,a9,0d,8d,f8,07, 
a9,0e,8d,f9,07,a9,00, 8d,27,d0,a9, 0 
8,8d,28 

datadO,a9,la,8d,00,d0,8d,02,d0,85, 
fb, a9, 32,8d, 01, d0, 8d, 03, d0, 85, fc, a 
9,38,8d 

datal4, 03, a9, c0, 8d, 15, 03, 60, a5, fb, 
8d, 00, d0, 8d, 02, d0, a5, fc, 8d, 01, d0, 8 
d, 03,d0 

dataad,00,dc,c9,7e,f0,21,c9,76,f0, 
27,c9,77,f0,2d,c9,75,f0,32,c9,7d,f 
0,39,c9 

data79,f0,3f,c9,7b,f0,45,c9,7a,f0, 
4d,4c,31,ea,00, 00,20,cl, c0, 4c, 31, e 
a,00,00 

dataOO, 00,20,cl,c0,20,cb,e0,4c,31, 
ea, 00,20, cb, c0, 4c, 31, ea, 00, 00, 00,2 
0,cb,c0 

data20, d5, c0,4c, 31, ea, 00, 00,20, d5, 
c0, 4c, 31, ea, 00, 00,00,00,20, d5, c0,2 
0,df,c0 

data4c, 31, ea,00,20,df,c0,4c,31,ea, 
00, 00,00, 00,00, 00, 20, df, c0,20, cl, c 
0,4c,31 

dataea,a5,fc,c9,32,f0,02,c6,fc,60, 
00,a5,fb,c9,70,f0,02,e6,fb,60,00,a 
5, fc,c9 

datael, f0, 02, e6, fc, 60, 00, a5, fb, c9, 
12, f0, 02, c6, fb, 60,20, fd, ae, 20, 9e,b 
7, 8a,48 

data20, fd, ae, 20, 9e,b7, 8a, a8, 68, aa, 
18,20,f0,ff,20,fd,ae,4c,a0,aa, 00, 0 
0,00,00 

dataa9,31,8d,14,03,a9,ea, 8d, 15, 03, 


60,00,00,00,00,00,00,00,00,00,00,0 
0,00,00 

data,,,,,,,,,,,,,,,,,,,,,,63,192,0 
,32,128,0,33,,,32,128,,32,64,,40,3 
2, ,52 

datal6, , 34,8, , 1, 16, , , 160, , , 64, , , , , 

,,,,,,,,, itirriritiiiitiriir , 192 
,,63 

datal28,,63,,,63,128,,63,192,,63,2 

24.. 55.240..35.248..1.240...224.., 
64 

data,,,,,,,,,,31,255,248,16,2,8,22 
,242,8,16,2,24,31,254,24,16, ,8,16, 

24.8 

datal6,36,8,16,36,8,16,24,8,16, , 8, 

16.16.8.16.16.8.16.16.8.16.. 8.31.2 
55,248 

data,16,,,56, , , 84, , , 16, , , 16, , 
data31,255,248,16,2,8,22,242,8, 16 , 

2.24.31.254.24.16.. 8.16.24.8 
datalö,36,8,16,36,8,16,24,8,16,,8, 

16.16.8.16.16.8.16.16.8.16.. 8.31.2 
55,248 

data,16,,,16,,,84,,,56,,,16,, 

data, ,,,,,,,,2, ,,5,,,8,128,,17,64, 

,10,160,,5,16,,2,72,,1,36 

data,,146,,,73,,,36,128,,17,64,,10 

,64,,4,64,,3,192,,,62,,,,,,,,,,,,, 

,15 

data255,128,8,,128,8,,128,8,112,12 

8.8.. 128.8..128.15.255.128.8..156, 

8.. 162 

data8,112,162,8,,132,8,,136,15,255 
,136,8,,136,8,,128,8,112,136,8,,12 

8.8 

data,128,15,255,128,,31,255,,16,1, 
,16,225,,17,241,,19,25,,22,13,,22, 

13.. 22 

datal3,,19,25,,16,49,,16,97,,16,97 
,,16,97,,16,97,,16,97,,16,1,,16,97 
, ,16 

data97,,16,1,,31,255,,,,,,,,,,,,,, 
,7,185,224,4,169,32,7,189,,4,165,3 
2,4 

datal89,234,,,,1,255,192,2,,192,4, 
24 9, 64,8,2, 64, 19,228, 64,32, 8, 128, 1 
27,241 

data,64,18,,71,20,,64,24,,127,240, 

r I t r 0 

data7,255,224,4,,32,4,24,32,4,36,9 
6, 4,36, 32,4,24,32,4, , 32, 4,16, 32,4, 
16, 32 

data4,16,32,4,,32,7,255,224, ,,,1,2 

55.224.4.. 32.4.153.32.4.153.32.4, , 
32, 4 

data255,32,5,,160,7,255,224,0 
data,,,,,,,,,,,,,, , ,28, ,7,255,240, 

4.. 16.7.255 

data240,4,,16,4,221, 144, 6, 221, 176, 
2,221,160,2,73,32,2,73,32,2,73,32, 
3, 73 

data96, 1, 73, 64,1,73, 64,1, , 64, 1, 255 
,192,,,,,,,,,,,,,,,64,,,192,,1,64, 
,2,127 

datal92, 4, , 64, 8, , 64,4, , 64,2,127, 19 

2.1.64.. , 192,,,64 

data,,,,,,,,,,,,,,,,,, ,,,,,,,,,,, , 
,,,,,,,,1,248,,1,8,,7,232,,4,40,,3 
1,168 

data,16,169,224, 126,168, 224, 66, 185 
,224,90,163,160,66,231,,90,142,, 67 
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Type kursus 64 


67,128 

1490 data,66,,,126,,,,,,,,,,,,,, 31,128, 
,16,128,7,254,128,4,34,128,5,186,1 
28,4 

1500 data42,128,5,170,128, 4, 43,128,31,1 

70,,16,238,,126,136,,66,248,,90,12 


, 156 

1390 data,66,56, , 126, 48, 
,254,64,,2,64,,2,64 


1400 data226,71,60,226,66,,66,64, , 2,71, 

255.226.68.. 34.72..18.127.255.254 
1410 data,,,,16,,,56, , ,84, , , 16, , , 16, , , 1 

6, , , , , , 127,255,254, 64, , 2,64, , 2, 64, 
,2,66 

1420 data60,66,71,36,226,71,60,226, 66, , 

66.64.. 2.71.255.226.68..34.72..18, 
127 

1430 data255,254,,,,,16,,,16,,,16,,,84, 
,,56,,,16,,,,,,,,,,,,,,,,,,,,,,,,2 
55,255 

1440 data255,128,,1,128,,17,171,171, 169 
,186,58,137,171,42,145,170,42,145, 
171 

1450 datal71,129,128, , 17,255,255,255, , , 

7 255 41 5 125 

/ t t t t t r t t t t t t t r r / • r *•->-> / r r r , -J , 

, ,4,1 

14 60 data, 5, 125, , 4,1, , 5, 125, , 4, 1, , 5, 125 
,,4,1,,5,125,,4,1,,5,125,,4,1,,4,1 
,,4,1 

1470 d&'t 3.,7,255, ,,,,,,,,,,,,,,,, ,,,,,,6 

3.. .33.1.249.45.1.10.33.7.239.237, 
4,42 

1480 data33,31,169,33,16,168, 63,12 6, 168 
,,66,184,,90,160,,66,224,,90,128,, 

regel 1 66 regel 510 27 regel 1050 

regel 2 119 regel 520 158 regel 1060 

regel 3 6 regel 530 10 regel 1070 

regel 4 143 regel 540 216 regel 1080 

regel 10 175 regel 550 85 regel 1090 

regel 20 40 regel 560 113 regel 1100 

regel 30 122 regel 570 1 regel 1110 

regel 40 14 regel 580 60 regel 1120 

regel 50 101 regel 590 72 regel 1130 

regel 60 179 regel 600 144 regel 1140 

regel 70 59 regel 610 146 regel 1150 

regel 80 118 regel 620 43 regel 1160 

regel 90 250 regel 630 68 regel 1170 

regel 100 221 regel 640 142 regel 1180 

regel 110 227 regel 650 . 181 regel 1190 

regel 120 189 regel 660 212 regel 1200 

regel 130 97 regel 670 181 regel 1210 

regel 140 141 regel 680 191 regel 1220 

regel 150 192 regel 690 229 regel 1230 

regel 160 204 regel 700 85 regel 1240 

regel 170 48 regel 710 87 regel 1250 

regel 180 191 regel 720 166 regel 1260 

regel 190 245 regel 730 141 regel 1270 

regel 200 27 regel 740 166 regel 1280 

regel 210 197 regel 750 189 regel 1290 

regel 220 34 regel 760 149 regel 1300 

regel 230 236 regel 770 25 -regel 1310 

regel 240 143 regel 780 87 regel 1320 

regel 250 113 regel 790 238 regel 1330 

regel 260 27 regel 800 145 regel 1340 

regel 270 158 regel 810 252 regel 1350 

regel 280 251 regel 820 27 regel 1360 

regel 290 78 regel 830 227 regel 1370 

regel 300 193 regel 840 154 regel 1380 

regel 310 26 regel 850 224 regel 1390 

regel 320 251 ‘ regel 860 162 regel 1400 

regel 330 137 regel 870 15 regel 1410 

regel 340 230 regel 880 61 regel 1420 

regel 350 163 regel 890 15 regel 1430 

regel 360 4 regel 900 146 regel 1440 

regel 370 37 regel 910 132 regel 1450 

regel 380 218 regel 920 171 regel 1460 

regel 390 150 regel 930 208 regel 1470 

regel 400 140 regel 940 40 regel 1480 

regel 410 167 regel 950 182 regel 1490 

regel 420 246 regel 960 34 regel 1500 

regel 430 31 regel 970 33 regel 1510 

regel 440 27 • regel 980 123 regel 1520 

regel 450 39 regel 990 128 regel 1530 

regel 460 38 regel 1000 69 regel 1540 

regel 470 162 regel 1010 72 regel 1550 

regel 480 13 regel 1020 26 regel 1560 

regel 490 140 regel 1030 106 


1510 datal28,,90,128,,67,128, , 66, , , 126, 

,,,,,,224,,,192,,,160,31,128,16,16 
,128,7 

1520 data254,128,6,34,128,5,122,128,4,1 

70.128.5.106.128.6.43.128.31.170., 
16,238 

1530 data,126,136,,66,248,,90,128,,66,1 

28.. 90.128..67.128..66...126....., 


1540 data,,,,,,,128,128, , 127, , , 99, , , 85, 

,,73,,28,85,28,31,255,252,4,,16,4, 
221 

1550 datal44,6,221,176,2,221, 160,2,73, 3 
2,2, 73,32,2,73,32,3, 73, 96, 1,73, 64, 
1, 73 

1560 data64,1,,64,1,255,192,0 


EINDE LISTING easybase 64 


Michiel Geurts heeft het al een tijdje in de gaten, om 
hem heen kunnen vele mensen niet, of niet goed ty¬ 
pen. Hij besloot daar dan ook wat aan te doen, en 
heeft deze uitgebreide type cursus geschreven. Het 
programma is zo opgebouwd dat elke uitleg eigenlijk 
overbodig is. 


if peek(49152)=160then44 
a$="bedankt[SPACE]![4xCRSR-DOWN][7 
xCRSR-LEFT][CTRL-2]voor[SPACE]'t[S 
PACE]run[SPACE]intypen[CRSR-UP][3x 
CRSR-DOWN][6xCRSR-LEFT](met[SPACE] 
twee[SPACE]vingers[SPACE]??)[2xSPA 
CE] " 

poke204,0:fori=ltolen(a$):wait207, 
1:printmid$(a$,i,1); 
forii=0tornd(l) *75:nextii,i:poke 2 
07,.:poke204,1:fori=0to2000:next 
goto 44: rem initialiseren 


rem toon voor fout 

pokew, 15 :pokeaa, 64 :pokeaa+l, 148 :p 
okehh,17:pokell,37:pokeww,33:forxx 
=0tol00 

next:pokeww,32:return 
fori=1504to2024 rpokei,32:next:retu 
rn 

dd$="":gosub 14:hj$="[HOME][13xCRS 
R-DOWN][5xSPACE][CTRL-2]_[COM-7][S 
PACE]voor[SPACE]menu[SPACE]":print 
hj$ 

print"[CRSR-DOWN][5xSPACE]typ[SPAC 
E]deze[SPACE]zin[SPACE]na:" 
x=int(rnd(0)* 9+1) :print"[2xCRSR-DO 
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WN]";tab(2);c$(x) 

18 print"[2xCRSR-D0WN]":fg=len(c$(x)) 
:ti$="000000" 

19 forii=ltofg 

20 b$=mid$(c$(x),ii,1):goto22 

21 ifd$<>""thengosubl2 

22 getd$ : ifd$Ob$andd$<>"_"then21 

23 if d$="_"thengosubl4:goto74 

24 gosub 7 

25 dd$=dd$+d$:print"[HOME][6xCRSR-DOW 
N][2xSPACE][14xCRSR-D0WN]"dd$:next 
ii:d$="":print"[HOME]" 

26 op=ti/60:po=int((fg/op)*60):print" 
[HOME][4xSPACE]u[SPACE]typte";po;" 
tekens[SPACE]per[SPACE]minuut.[HOM 
E] " 

27 getr$:ifr$=""then27 

2 8 print"[HOME] [3 9xSPACE]" 

29 goto 15 

30 print"[SHIFT-CLR][CRSR-RIGHT][5xSP 
ACE][CTRL-2][CRSR-RIGHT]typ[SPACE] 
cursus[SPACE]!!!!!!![COM-7]" 

31 print"[2xCRSR-D0WN][2xCRSR-RIGHT][ 
SPACE]met[SPACE]deze[SPACE]cursus[ 
SPACE]kunt[SPACE]u[SPACE]snel" 

32 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]leren[SPACE]typen, [SPACE]mit s[ 
SPACE]u[SPACE]deze" 

33 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]dingen[SPACE]let: " 

34 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]leg[SPACE]uw[SPACE]vingers[SPA 
CE]van[SPACE]uw[SPACE]linker" 

35 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]hand[SPACE]op[SPACE]de[SPACE]t 
oetsen:" 

36 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE][CTRL-2]asdf[COM-7][CRSR-DOWN] 

[4xCRSR-LEFT][4xCOM-T][CRSR-UP][SP 
ACE]en[SPACE]de[SPACE]duim[SPACE]o 
p[SPACE]de[SPACE]spatie-" 

37 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]balk,[SPACE]de[SPACE]vingers[S 
PACE]van[SPACE]uw[SPACE]" 

38 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]rechterhand[SPACE]op[SPACE]de[ 
SPACE]toesten:" 

39 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE][CTRL-2]:lkj[COM-7][CRSR-DOWN] 
[4XCRSR-LEFT][4xCOM-T][CRSR-UP][SP 
ACE]en[SPACE]de[SPACE]duim[SPACE]o 
p[SPACE]de[SPACE]spatie-" 

40 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]balk, [SPACE]alle s[SPACE]moet[S 
PACE]'blind'[SPACE]inge-[2xSPACE]" 

41 print"[CRSR-DOWN][2xCRSR-RIGHT][SP 
ACE]typt[SPACE]worden.[3xSPACE](du 
w[SPACE]op[SPACE]toets)[4xCRSR-UP]" 

42 geta$:ifa$=""then42 

43 run 

44 

45 rem initalisering 

46 : 

47 printchr$(142);chr$(8):dim a$(12): 
dimc$(100) 

48 w=54296;ww=54276:aa=54277:hh=5427 
3:11=54272 

49 a$(1)="[COM-A][SHIFT-*][COM-R][SHI 
FT *][COM-R][SHIFT-*][COM-R][SHIFT 

*][COM-R][SHIFT-*][COM-R][SHIFT-* 

][COM-R][SHIFT-*][COM-R][SHIFT-*][ 


COM-R][SHIFT-*][COM-R][SHIFT-*][CO 
M R][SHIFT-*][COM-R][SHIFT-*][COM- 
R][SHIFT-*][COM-S]" 

50 a$(2)="B1B2B3B4B5B6B7B8B9B0B+B-BB 

":rt$(3)="qqwerty":rt$(4)="uuiop@* 

A II 

51 a$(3)="[COM-Z][COM-R][COM-E][COM-R 
][COM-E][COM-R][COM-E][COM-R][COM¬ 
BI [COM-R][COM-E][COM-R][COM-E][COM 

R][COM-E][COM-R][COM-E][COM-R][CO 
M E][COM-R][COM-E][COM-R][COM-E][C 
OM R][COM-E][COM-R][COM-X]":rt$(1) 
="aasdfg":rt$(2)="hhjkl:;" 

52 a$(4)="[SPACE]BqBwBeBrBtByBuBiBoBp 
B@B*B[SPACE]":rt$(5)="zzxcvb":rt$( 
6)="nnm,./" 

53 a$(5)="[SPACE][COM-Z][COM-R][COM-E 
][COM-R][COM-E][COM-R][COM-E][COM- 
R][COM-E][COM-R][COM-E][COM-R][COM- 
E][COM-R][COM-E][COM-R][COM-E][CO 
M R][COM-E][COM-R][COM-E][COM-R][C 
OM E][COM-R][COM-X][SPACE]":rt$(7) 
="112345":rt$(8)="667890+-" 

54 a$(6)="[2xSPACE]BaBsBdBfBgBhBjBkBl 
B:B;B[2xSPACE]" 

55 a$(7)="[2xSPACE][COM-Z][COM-R][COM 

E][COM-R][COM-E][COM-R][COM-E][CO 
M R] [COM-E] [COM-R] [COM-E] [COM-R] [C 
OM E] [COM-R] [COM-E] [COM-R] [COM-E] [ 
COM-R][COM-E][COM-R][COM-E][COM-R] 
[COM-X][2xSPACE]" 

56 a$ (8)=”[3xSPACE]BzBxBcBvBbBnBmB,B. 
B/B[3xSPACE]" 

57 a$(9)="[3xSPACE][COM-Z][SHIFT-*][C 
OM E][SHIFT-*][COM-E][SHIFT-*][COM 

E][SHIFT-*][COM-E][SHIFT-*][COM-E 
][SHIFT-*][COM-E][SHIFT-*][COM-E][ 
SHIFT-*][COM-E][SHIFT-*][COM-E][SH 
IFT *][COM-X][3XSPACE]" 

58 spatie$="[39xSPACE]" 

59 poke53280,.:poke53281,. :qq=0:gosub 
60:goto66 

60 print"[COM-7][SHIFT-CLR][CRSR-DOWN 
]" 

61 fori=lto09rprinttab(6);a$(i):next 

62 fori=55423to55450step2:pokei,qq:ne 
xt 

63 fori=55500to5553lstep2:pokei,qq:ne 
xt 

64 fori=55581to55610step2:pokei,qq:ne 
xt 

65 fori=55660to55691step2:pokei,qq:ne 
xt:return 

66 fori=4 9152to4 9244:reada:pokei, a:ne 
xt:poke49165,2:sys 49152 

67 fori=ltoll:readc$(i):next 

68 fori=0to60:poke49165,i:sys49152:sy 
s49228:fora=0to20:next:next 

69 data 160,2,169,4,141,11,192,162,25 
4,189,0,5,201,2,240,10,202,208,246 

70 data 238,11,192,136,208,238,96,24, 
138,10 9,10,192,133,251,24,173, 11 

71 data 192,105,212,133,252,120,169,5 
4,141,20,3,169,192,141,21, 3,88, 96 

72 data 165,2,201,10,208,11,169,0,133 

,2,173,18,208,160,0,145,251,230 

73 data 2,76,49,234,169,1,160,0,145,2 
51,169,234,141,21,3,169,49,141,20, 

3, 96 

74 print"[HOME][13xCRSR-DOWN][4xSPACE 
][CTRL-2][13xSPACE]menu[COM-7]" 
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75 print"[2xCRSR-DOWN][lOxSPACE]1)[SP 
ACE]gewoon[SPACE]intypen." 

76 print"[CRSR-DOWN][10xSPACE]2)[SPAC 
E]instrukties." 

77 print"[CRSR-DOWN][10xSPACE]3)[SPAC 
E]stoppen." 

78 geta$:a=val(a$):onagoto82,30,80 

79 goto 78 

80 print"[SHIFT-CLR][2xCRSR-DOWN]tot[ 
SPACE]ziens[SPACE]!!":print"klaar. 

":poke768,123:poke769,164:end 

81 : 

82 rem cursus 

83 print"[SHIFT-CLR][2xSPACE]met[SPAC 
E]deze[SPACE]cursussen[SPACE]kunt[ 
SPACE]u[SPACE]systematies" 

84 print"[CRSR-DOWN][2xSPACE]leren[SP 
ACE]typen,[SPACE]gaat[SPACE]u[SPAC 
E]pas[SPACE]door[SPACE]met[SPACE]d 
e" 

85 print"[CRSR-DOWN][2xSPACE]volgende 
[SPACE]cursus[SPACE]als[SPACE]u[SP 

I ACE]er[SPACE]een[SPACE]helemaal" 

1 86 print"[CRSR-DOWN][2xSPACE]beheerst 

.":print"[2xCRSR-DOWN][5xSPACE]cur 
sus[SPACE]0)[SPACE]asdfg[4xSPACE]" 

1 87 print"[5xSPACE]cursus[SPACE]1)[SPA 

CE]hjkl:;[24xSPACE]cursus[SPACE]2) 
[SPACE]qwerty" 

| 88 print"[5xSPACE]cursus[SPACE]3)[SPA 

CE]uioop@*[23xSPACE]cursus[SPACE]4 
)[SPACE]zxcvb" 

| 89 print"[5xSPACE]cursus[SPACE]5)[SPA 

CE]nm,./[25xSPACE]cursus[SPACE]6)[ 
SPACE]123456" 

90 print"[5xSPACE]cursus[SPACE]7)[SPA 
CE]67890+-[23xSPACE]cursus[SPACE] 
8)[SPACE]zinnen" 

91 print"[12xSPACE]9)[SPACE]terug[25x 
SPACE][2xCRSR-DOWN][CTRL-2][SPACE] 
wat[SPACE]kiest[SPACE]u[SPACE]?[SP 
ACE](0-9) 

92 getcu$:cu$=cu$+"a":cu=asc(cu$)-47: 
ifcu<lorcu>10then92 

93 ifcu=9thenprint"[SHIFT-CLR]":qq=l: 
gosub60:gotol5 

94 ifcu=10thenrun 

95 rr$=rt$(cu):qq=l:gosub60:print"[HO 

ME][16xCRSR-DOWN][12xCRSR-RIGHT][C 
TRL 2] [COM-7][SPACE]voor[SPACE]me 


96 

97 

98 

99 

100 
101 
102 

103 

104 
200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

500 

510 

520 

530 

590 


ee=len(rr$):er=int(rnd(1)*ee+l):et 
$=mid$(rr$,er,1):ifet$=te$then96 
te$=et$ -.print" [HOME] [13xCRSR-DOWN] 
[12xSPACE]typt[SPACE]u[SPACE]de[SP 
ACE][CTRL-2]";et$;"[SPACE][COM-7]. 

..":gosubl02 

getb$:ifb$=et$thengosub8:gosubl02: 
goto96 

if b$="_"thengoto 82 
ifb$<>""thengosubl2 
goto98 

d=peek(646):kl=49152 
print"[HOME][CTRL-1]";et$:b=peek(1 
024):poke49165,peek(1024):sys49228 
:syskl:print"[HOME][SPACE]" 
poke646,d:return 

data"computers[SPACE]zijn[SPACE]on 

tzettend[SPACE]handig" 

data"die[SPACE]bananen[SPACE]koste 

n[SPACE]fl[SPACE]12,50." 

data"ik[SPACE]zeg[SPACE]altijd[SPA 

CE]maar[SPACE]:[SPACE]tjekaa." 

data"1[SPACE]is[SPACE]ongeveer[SP 

ACE]fl[SPACE]4,50." 

data"12*45=540, [SPACE]2*12*3=840, [ 

SPACE]34+8=42" 

data"dit[SPACE]is[SPACE]gemaakt[SP 
ACE]door[SPACE]michiel[SPACE]geurt 
s . " 

data"@[SPACE]dit[SPACE]teken[SPACE 
]kom[SPACE]je[SPACE]nooit[SPACE]te 
gen. " 

data"weet[SPACE]jij[SPACE]waar[SPA 
CE]willem[SPACE]wever[SPACE]woont" 
data"lees[SPACE]jij[SPACE]ook[SPAC 
E]commodore-info." 

data"ik[SPACE]typ[SPACE]al[SPACE]h 
eel[SPACE]snel." 
data"eind." 

kunt deze data regels 


rem 


u 


rem gewoon aanvullen. 

rem u moet dan wel regel 67 


rem 


aanpassen (fori=lto...) 


EINDE LIST1NG type cursursus 


regel 

1 

251 

regel 

25 

86 

regel 

49 

83 

regel 

73 

110 

regel 

97 

92 

regel 

2 

96 

regel 

26 

16 

regel 

50 

207 

regel 

74 

161 

regel 

98 

153 

regel 

3 

175 

regel 

27 

88 

regel 

51 

36 

regel 

75 

125 

regel 

99 

224 

regel 

4 

65 

regel 

28 

240 

regel 

52 

167 

regel 

76 

220 

regel 

100 

48 

regel 

5 

138 

regel 

29 

239 

regel 

53 

107 

regel 

77 

161 

regel 

101 

250 

regel 

6 

58 

regel 

30 

18 

regel 

54 

253 

regel 

78 

208 

regel 

102 

49 

regel 

7 

52 

regel 

31 

245 

regel 

55 

221 

regel 

79 

248 

regel 

103 

218 

regel 

8 

207 

regel 

32 

20 

regel 

56 

235 

regel 

80 

52 

regel 

104 

111 

regel 

9 

20 

regel 

33 

252 

regel 

57 

8 

regel 

81 

58 

regel 

200 

126 

regel 

10 

58 

regel 

34 

32 

regel 

58 

224 

regel 

82 

116 

regel 

210 

20 

regel 

11 

83 

regel 

35 

199 

regel 

59 

59 

regel 

83 

59 

regel 

220 

50 

regel 

12 

60 

regel 

36 

237 

regel 

60 

27 

regel 

84 

25 

regel 

230 

208 

regel 

13 

90 

regel 

37 

166 

regel 

61 

133 

regel 

85 

4 

regel 

240 

77 

regel 

14 

225 

regel 

38 

212 

regel 

62 

165 

regel 

86 

74 

regel 

250 

117 

regel 

15 

166 

regel 

39 

234 

regel 

63 

161 

regel 

87 

230 

regel 

260 

255 

regel 

16 

205 

regel 

40 

27 

regel 

64 

168 

regel 

88 

227 

regel 

270 

238 

regel 

17 

201 

regel 

41 

41 

regel 

65 

119 

regel 

89 

189 

regel 

280 

226 

regel 

18 

173 

regel 

42 

51 

regel 

66 

134 

regel 

90 

252 

regel 

290 

99 

regel 

19 

39 

regel 

43 

138 

regel 

67 

49 

regel 

91 

178 

regel 

300 

21 

regel 

20 

133 

regel 

44 

58 

regel 

68 

31 

regel 

92 

10 

regel 

500 

88 

regel 

21 

50 

regel 

45 

97 

regel 

69 

141 

regel 

93 

58 

regel 

510 

96 

regel 

22 

40 

regel 

46 

58 

regel 

70 

73 

regel 

94 

103 

regel 

520 

222 

regel 

23 

15 

regel 

47 

181 

regel 

71 

116 

regel 

95 

40 

regel 

530 

69 

regel 

24 

196 

regel 

48 

138 

regel 

72 

242 

regel 

96 

162 

regel 

590 

5 


: 
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PRIN T OUT met o.a.Duikboot 

Checksum cl 6 


rem ****************************** 
* * ★ 

rem syntax.checksum 
rem voor c-16 & plus/4 
rem 

rem syntax testen met ' sys 1536' 
rem 

rem v.851128.16 jan bodzinga 

rem ****************************** 
*** 

i=1536 :rem beginadres 

reada:ifa>=0then pokei,a:i=i+l:got 
olOO 

print"data[SPACE]is[SPACE]weggezet 

print"cheksum[SPACE]printen[SPACE] 

met[SPACE]'sys[SPACE]1536' 

end 

data 165, 43,166, 44,133 
data 31,134, 32,169,147 
data 32,210,255,160, 0 

data 240, 3, 32, 73, 6 

data 32, 73, 6,208, 1 

data 96, 72,152, 32,131 
data 6,168,104,234, 32 
data 81, 6, 32, 73, 6 

data 240, 12,201, 32,240 
data 247, 24,101,252,133 
data 252, 76, 37, 6,166 

data 252,169, 0,132,253 

data 32, 95,164,169, 13 
data 32,210,255,164,253 
data 76, 17, 6,200,208 

data 2,230, 32,177, 31 


96,162, 0,189,123 

6,240, 6, 32,210 

255,232,208,245, 32 
73, 6,170, 32, 73 

6,132,253, 32, 95 
164,162, 3,169, 32 

32,210,255,202,208 


430 

data 250,169, 

0,133,252 


440 

data 164,253, 

96, 82, 

69 


450 

data 71, 69, 

76, 32, 

0 


460 

data 0, 72,138, 72, 

32 


470 

data 225,255,240,251,104 


480 

data 170,104, 

96, -1 



** EINDE LISTING checkslö 



REGEL 

10 

249 

REGEL 

300 

118 

REGEL 

20 

247 

REGEL 

310 

204 

REGEL 

30 

121 

REGEL 

320 

165 

REGEL 

40 

143 

REGEL 

330 

252 

REGEL 

50 

75 

REGEL 

340 

106 

REGEL 

60 

143 

REGEL 

350 

98 

REGEL 

70 

8 

REGEL 

360 

163 

REGEL 

80 

249 

REGEL 

370 

45 

REGEL 

90 

103 

REGEL 

380 

0 

REGEL 

100 

2 

REGEL 

390 

58 

REGEL 

110 

245 

REGEL 

400 

108 

REGEL 

120 

237 

REGEL 

410 

159 

REGEL 

130 

128 

REGEL 

420 

245 

REGEL 

2 00 

210 

REGEL 

430 

202 

REGEL 

210 

208 

REGEL 

440 

1.7 6 

REGEL 

220 

142 

REGEL 

450 

12 

REGEL 

230 

1 

REGEL 

460 

54 

REGEL 

240 

3 

REGEL 

470 

43 

REGEL 

250 

157 

REGEL 

480 

1 


REGEL 260 
REGEL 270 
REGEL 280 
REGEL 290 


Zon en maan Cl 6 


Hebben we de vorige keer de amiga een beetje in het 
zonnetje gezet door een vrij uitgebreid programma 
met uitvoerige uitleg , ditmaal wilden we de c 16 in 
het zonnetje zetten en wel met het programma Zon 
en Maan van Hans Quene’. Hij heeft een programma 
geschreven voor de c 16 want 16 kilobyte is ruim vol¬ 
doende om te weten tot hoe laat het op de plaats van 
bestemming licht zal zijn. De dag te bepalen dat de 
zon weer je raam binnen schijnt, na te gaan of er vol¬ 
le maan was op d-day en tot op de minuten nauw¬ 
keurig voorspellen wanneer de vogels gaan fluiten, 
de lantaarnpalen uit zal gaan en de teunisbloem zich 
opent. Natuurlijk kan je gewoon wat data intikken en 
zo een heleboel te weten komen over de hemelme¬ 
chanica. De resultaten van dit programma heeft de 
auteur langdurig vergeleken met tabellen van erken¬ 
de instellingen en voor de op- en ondergangstijden 
vond hij geen grotere afwijking dan 1 minuut, voor de 
azimuth vond hij een maximaal verschil van een hal¬ 
ve graad, de afstand tot de zon is correct als hij wordt 
afgerond tot op vier cijfers achter de komma. Het 
zelfde geldt voor de eerste twee cijfers van het ver¬ 
licht gedeelte van de maan. De hoogten, schijnbare 
straal en afstand maan heeft hij niet systematisch 
kunnen onderzoeken, toch moeten zij redelijk klop¬ 
pen omdat anders de op- en ondergangstijden foutief 


zouden zijn. Voor de goede orde vermeld de schrijver 
dat de formules heeft uit de Grunlagen. De schrijver 
heeft een uitgebreide handleiding geschreven die wij 
dan ook letterlijk overnemen. Inputgegevens: 

Het jaartal moet volledig worden opgegeven dus 
1988 inplaats van ’88 jaartallen van voor 1583 wor¬ 
den niet uitgerekend, de maand moet in cijfers wor¬ 
den opgegeven. 

Wereld tijd: 

Het programma maakt uitsluitend gebruik van wereld¬ 
tijd (UT) die eerst in uren (van 0 tot 32) en dan in mi¬ 
nuten moet worden opgegeven. Op enkele seconden 
na is de wereldtijd hetzelfde als Greenwich Mean 
time (GMT). Onze tijd loopt 1 uur voor op de GMT, de 
zomertijd 2 uur. Dit moet dus van de tijd die onze klok 
aangeeft worden afgetrokken om wereldtijd te verkrij¬ 
gen. Voor de lokale tijd op een ander punt op aarde 
raadpleegt men een tijd zonekaart. In het algemeen 
geldt dat voor elke 15 graden die men oostwaarts 
reist de klok een uur vooruit, en voor elke 15 graden 
westwaards een uur achteruit moet worden gezet. 
Maar hier bestaan vele uitzonderingen op. 

Geografische lengte en breedte: 

Het systeem van geografische lengte en breedte legt 
elke plaats op de aarde met behulp van twee koördi- 
naten eenduidig vast. Lengte en breedte worden 
daarbij in graden gemeten. De lengte loopt van +90 
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(noordpool) via 0 (evenaar) naar -90 (zuidpool). De 
breedte loopt van -180 tot +180, waarbij de nulmeri- 
diaan voor Greenwich (vlakbij Londen) loopt. Ver¬ 
moedelijk ligt uw woonplaats niet ver van een van 
deze plaatsen 

Amsterdam 52,38 -4.83 

Antwerpen 51.23 -4.38 

Arnhem 51.98 -5.92 

Brussel 50.85 -4.35 

Eindhoven 52.43 -5.50 

Gent 51.08 -3.73 

Groningen 53.22 -6.57 

Den Haag 52.08 -4.30 

Leeuwarden 63.20 -5.68 

Maastricht 50.85 -5.68 

Utrecht 52.08 -5.13 

Vlissingen 51.43 -3.53 

Zwolle 52.30 -6.08 

Ook mag een tabel van enkele wereldsteden niet ont¬ 
breken : 

Londen 51.50 .08 (0) 

Moskou 55.75 -37.60 (-3) 

Paramaribo 5.83 55.17 (-3 1/2) 

Parijs 48.87 -2.33 (+1) 

New York 40.75 74.00 (-5) 

Tokio 35.43 -139.75 (+9) 

San Fransisco 37.25 122.50 (-8) 

Tussen haakjes staat het aantal uren dat men bij de 
wereldtijd moet optellen of aftrekken om de lokale 
wintertijd te verkrijgen. Wie zelf in een atlas lengte en 
breedte op wil zoeken moet weten dat het daar ge¬ 
bruikte systeem op twee punten af wijkt Ten eerste 
spreekt de atlas van noorden-en zuiderbreedte, en 
ooster- en westerlengte. 

Het programma onderscheidt de halfronden door 
middel van positieve en negatieve getallen. Zuider- 
breedten en oosterlengten moeten als negatieve ge¬ 
tallen worden ingevoerd. Ten tweede maakt de atlas 
gebruik van minuten. Er gaan zestig minuten in een 
graad. Deze moeten naar een tiendelige breuk wor¬ 
den omgerekend. Om kort te gaan: 38.53’ ZB wordt - 
38.88. Veel atlassen hebben ook een index waarin 
lengten en breedten vermeld staan, zodat die dan 
niet van een kaart hoeven te worden afgeleid. Tot 
slot moet nog worden opgemerkt dat het programma 
vastloopt als een breedte van plus of min 90 wordt in¬ 
gevoerd. Dat gebeurt niet bij afstanden op enkele ki¬ 
lometers van de pool, b.v. 89.99. 

Outputgegevens: 

Azimuth en hoogte. Met behulp van azimuth en hoog¬ 
te kan je vastleggen waar "op de hemelkoepel" een 
hemellichaam zich bevindt, bevond of zal bevinden. 
Azimuth en hoogte worden in graden en minuten ge¬ 
meten. De azimuth geeft de kompasrichting aan waa¬ 
rin men moet kijken om het hemellichaam waar te ne¬ 
men. Als de azimuth 0 tot 360 graden is, dan staat 
het hemellichaam in het noorden, bij 90 graden in het 
oosten, bij 180 graden in het zuiden en bij 270 gra¬ 
den in het westen. Als een hemellichaam een hoogte 
heeft van 90 graden dan staat deze recht boven de 
waarnemer (in het zenith), bij een hoogte van 0 gra¬ 
den op de horizon, terwijl bij negatieve waarden het 
hemellichaam onder de horizon staat en dan dus niet 


waar te nemen is. Dit laatste is bij de zon toch een 
practisch gegeven omdat het aantal graden dat de 
zon onder de horizon staat een objectieve maat voor 
de schemertoestand is. Ik zal me beperken tot een 
zonsondergang, maar in omgekeerde volgorde geldt 
alles ook voor een zonsopgang. -0.83 ofwel 50 minu¬ 
ten. Definitie zonsondergang. -6.00 eind burgelijke 
schemering. -12.00 eind nautische schemering - 
18.00 eind astronomische schemering Tot het eind 
van de burgelijke schemering is het nog vrij licht. Bui¬ 
ten kan men nog wel lezen, binnen lukt dat niet meer. 
Men doet de lampen aan en de helderste sterren 
worden zichtbaar. Tussen het eind van de burgelijke 
schemering en het eind van de nautische schemering 
wordt lezen onmogelijk en verliezen we het vermo¬ 
gen om kleuren te onderscheiden. Tot het eind van 
de astronomische schemering kan wie een vrij uit¬ 
zicht heeft nog zien waar de zon onderging, al wordt 
dit steeds moeilijker Na het eind van de astronomi¬ 
sche schemering zijn zelfs de zwakste sterren in prin¬ 
cipe zichtbaar. In Nederland wordt dit van half mei tot 
half juli niet bereikt. Uit de azimuth en hoogte van de 
zon kunnen ook gegevens over de schaduw afgeleid 
worden. Een paal a meter, loodrecht op het aardop¬ 
pervlak, werpt een schaduw van a/tan(hoogte) meter. 
Verder is het niet mogelijk in te zien dat de richting 
van die schaduw precies tegengesteld is aan die van 
de azimuth. 

Op komst en ondergang: 

De opkomst- en ondergangstijden van zon en maan 
worden opgegeven in uren en minuten, en in wereld¬ 
tijd. De tijden worden niet berekend maar benaderd. 
Daarom duurt het uitrekenen van de opkomst en on- 
dergangstijd van de maan ca 25 seconden. De com¬ 
puter probeert een zodanige tijd te vinden dat de zon 
50 minuten onder de horizon staat. Op deze manier 
heeft de zonsondergang betrekking op de bovenste 
rand van de zon, en niet op het middelpunt. Boven¬ 
dien verbuigt de lucht in de dampkring het zonlicht, 
zodat het lijkt alsof de zon wat hoger staat dan in 
werkelijkheid het geval is. Dit effect treedt het sterkst 
op als het licht een lange weg moet afleggen, dus als 
de zon laag staat. Boven de poolcirkel kan het voor¬ 
komen dat de zon niet opkomt en niet ondergaat. Dit 
wordt aangegeven met het woordje "niet". De hoogte 
van de zon geeft dan uitsluitsel of de zon er die dag 
nu juist wel of niet juist is. Ook de maan kent een 
soort "poolcirkel", maar deze verplaatst zich veel 
meer. In voorkomende gevallen verschijnt ook hier 
het woordje "niet" De maan trekt zich niets aan wat 
wij als dag en nacht beschouwen. Ze komt ongeveer 
om de 25 uur op en gaat ongeveer om de 25 uur on¬ 
der. Daarom is er elke maand wel een etmaal waarop 
de maan niet opkomt en een ander etmaal waarop ze 
niet ondergaat. Dit wordt dan aangegeven met het 
woordje "niet", wat gelezen kan worden als "pas mor¬ 
genochtend vroeg". Dezelfde "eigenzinnigheid" is er 
de oorzaak van dat op de helft van de dagen de 
maan eerder ondergaat dan opkomt. In die tussenlig¬ 
gende tijd is er dus geen maan. 
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Afstanden en schijnbare straal: 

De afstanden van de aarde tot de zon wordt opgege¬ 
ven in Astronomische Eenheden. Een A E is gelijk 
aan 149597870 km. Dit kan men beschouwen als de 
gemiddelde afstand van de aarde tot de zon. Met be¬ 
hulp van het gegeven dat de lichtsnelheid 299792458 
meter per seconde bedraagt kan men zelf berekenen 
dat het zonlicht er ruim acht minuten over doet om 
ons te bereiken. De afstand aarde-maan wordt opge¬ 
geven in kilometer. Het is misschien aardig om te we¬ 
ten dat sinds astronauten een spiegeltje op de maan 
hebben geplaatst, men met behulp van laserlicht de 
afstand tot op 8 cm nauwkeurig kan meten. Omdat 
die afstand nogal varieert verandert ook de grootte 
van schijfje die wij waarnemen. Bij sommige zonsver¬ 
duisteringen bedekt de maan de zon geheel, bij an¬ 
dere blijft een ring van licht zichtbaar. Het programma 
geeft de schijnbare straal in graden. 

Verlicht gedeelte: 

Hoewel in werkelijkheid de zon steeds vijftig procent 
van het maanoppervlak verlicht, lijkt het voor de aard¬ 
se, waarnemer alsof de maan een schijfje is, waar¬ 
van een kleiner of groter gedeelte verlicht kan zijn. Bij 
volle maan is het verlicht gedeelte 1.00 bij .50 is de 
maan "halfvol" en bij 0.0 is het nieuwe maan. Als ge¬ 
volg van onnauwkeurigheid kan het wel eens voorko¬ 
men dat de computer een verlicht gedeelte opgeeft 
dat iets groter is dan 1. Wie wil weten of het linker of 
rechter gedeelte verlicht is vraagt de gegevens van 
dezelfde plaatst, maar een paar uur later. Is het ge¬ 
deelte toegenomen dan was het rechter gedeelte ver¬ 
licht, anders het linker. In zuidelijke streken lijkt de 
maansikkel onderuit te zakken; op de evenaar vormt 
de maansikkel een boortje of een boogje. 

Aanvullende opmerkingen: 

Controleren van de listing. allereerst moet de check- 
sum in orde zijn. Maar zoals bekend signaleert een 
checksum programma geen fout als twee karakters 
onderling verwisseld worden, dat laatste kan bij dit 
programma nogal gemakkelijk gebeuren omdat er 
veel getallen in voorkomen. Voer daarom deze pro¬ 
gramma regels in: 

195 print"t=";t:print"ts=";ts:print"l=";1: 

print"rz=";rz:print "b=";b:goto 210 
265 print"co=";co:print"1=";1:print"b=";b: 
print"f=";f:goto280 

De checksums zijn 81 en 43. Run dan met deze ge¬ 
gevens jaar 1963, maand 7, dag 10, wereldtijd 7, mi¬ 
nuten 30, geo breedte 52.15, geo lengte -4.5. Als de 
waarden in onderstaande tabel niet precies overeen¬ 
stemmen met die op het schermpje dan zit er 
vermoedelijk een fout in de gosubs die beginnen op 
de achter de variabele vermelde regelnummers. 


var 

waarde 

gosubs 

t 

.635203628 

400,470 

ts 

.776851879 

470 

1 

1.87351279 

630 

rz 

1.01665821 

710 

b 

6.28318283 

760 

co 

-17576.319 

1260,1320 

1 

5.7361403 

1260,1320 


b 6.22598387 1260,1320,1400 

f .78837948 1470 

Werk de variabele in de gegeven volgorde af, omdat 
als bijvoorbeeld de variabele t fout is, alle andere va¬ 
riabele gegarandeerd ook een foute waarde krijgen. 
Als alles klopt kunnen de regels 195 en 265 weer 
verwijderd worden. 

Persoonlijke aanvulling op het programma: 

Als je het leuk vindt als het programma ook meldt 
hoeveel dagen je oud bent en hoeveel kilometer de 
opgegeven ‘plaats hemelsbreed van je woonplaats is 
verwijderd kan je als volgt te werk gaan: 

1) voer deze programma regels in: 

145 print int (jd) :print 

sin(gb);cos(gb);-le:stop 

( checksum is 173.) 

2) Run het programma met je geboorte datum en je 
woonplaats, en een willekeurige wereldtijd. Schrijf de 
vier getallen over en noem ze a,b1 ,b2 en b3. 3) 

Voer nu deze regels in: 

593 prinf'leeftijd";int(jd)-A;"dagen"; 

597 di=bl*sin(gb) [b2@cos (fnr (le+b3)) 

598 

di=int((fnc(di)*6378.140)+.5):print"afsta 
nd";di;"kilometer" 

Gebruik daarbij in regel 593 en 597 niet daadwer¬ 
kelijk de variabelen a,b1 ,b2 en b3 maar vervang deze 
door de onder 2 gevonden getallen. 

Ascendant: 

Met zekere tegenzin geef ik voor het genoegen van 
hen die geen kans zien om hun betrekkingswaan 
door middel van zelfreflectie te verdrijven een tabel 
waarmee de astrologische ascendant bepaald kan 
worden. De tabel geldt uitsluitend voor Nederland en 
Belgie. eerst moet deze programma regel ingevoerd 
worden: 

145 print int (100*ts+.5)/100{stop 

(Checksum is 152) 

Run vervolgens het programma met plaats, datum en 
wereldtijd van geboorte. Op het scherm verschijnt nu 
een getal met twee cijfers achter de komma. Is dit ge¬ 
tal bijvoorbeeld 1.98 dan is de ascendant weegschaal 
omdat dit getal ergens tussen de waarden 1.57 en 
2.31 in ligt. Zou dit getal precies 1.57 zijn dan is de 
ascendant om diverse redenen onbekend en kan zo¬ 
wel maagd als weegschaal zijn. Kreeft 0.08 leeuw 
0.82 maagd 1.57 weegschaal 2.31 schorpioen 3.05 
boogschutter 3.72 steenbok 4.18 waterman 4.48 vis¬ 
sen 4.71 ram 4.94 stier 5.24 tweelingen 5.71 kreeft 
6.29 

Aanvulling op de gebruiksaanwijzing cl6: 

De cl 6 berekent uitsluitend goniometrische functies 
van hoeken die zijn opgegeven in radialen. Om gra¬ 
den om te rekenen naar radialen gebruik je de functie 
fnr(y) van regel 310 of deze formule: radialen=gra- 
den. 11/180. 

Wie meer wil weten kan de volgende boeken lezen 
Sterrengids, uitgegeven door Stichting De Koepel, 
verschijnt jaarlijks. Practical Astronomy with your Cal¬ 
culator, door Peter Duffet Smith, Cambridge Universi- 
ty Press, of de Grundlagen der Ephemeridenrech- 
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nung, 

Sterne 

door Oliver Montenbruck, uitgegeven door 
und Welteaum, Munshen. 

410 

input"[CRSR-DOWN]jaar[2xSPACE]";j: | 

ifj<1583thengoto410 

420 

input"maand[SPACE]";ma:input"dag[3 

Wij wensen een ieder veel plezier met dit programma 
en hopen dat de kreet te weinig aandacht voor de 


xSPACE]";d:input"[CRSR-DOWN]wereld 
tijd";wt:input"minuten[3xSPACE]";m 

cl 6 even uit de wereld is. 

430 

ifma>2theny=j:m=ma:elsey=j-1:m=ma+ 

12 1 
ew=int(y/400)-int(y/100):ut=wt+mn/ 



440 

ZON en MAAN 


60 



450 

jd=int(365,25*y)tint(30.6001*(m+1) 

)+ew+1720996.5+d+(ut/24):return 

20 

rem 

460 

rem ecliptica en sterrentijd 

30 

rem Hans Quene 



40 

rem 

470 

input"[CRSR-DOWN]geo[SPACE]breedte 

50 

rem AMSTERDAM 


";br:gb=fnr(br) 

60 

rem 

480 

input"geo[SPACE]lengte[SPACE]";le: 

100 

rem hoofdprogramma 

490 

gl=fnr(le) 

print"[CRSR-DOWN]return[SPACE]=bee 

110 

gosub310:rem definiëren 


ldscherm":print"p[SPACE]+[SPACE]re 

120 

gosub400:rem juliaanse datum 


turn[SPACE]=printen":inputp$ 

130 

gosub470:rem sterrentijd/ecliptica 

500 

ifp$="p"thenopen4,4:cmd4 

140 

gosub550:rem uitvoer eerste zinnen 

510 

t=(jd-2451545)/36525:e=23.439291-( 

150 

gosub630:rem eclipticale lengte zo 


. 013004*t) :e=fnr(e) :t=(jd-2415020) 


n 


/36525 

160 

gosub760:rem eclipticale breedte z 

520 

ts=6.656306+.0657098242*(int(jd-ut 


on 


/24)-2445700) + (1.002737 9093*ut)-(1 

170 

gosub820:rem eclipticaal-equatoria 


e/15) 


al 

530 

ts=fnr(ts*15):return 

180 

gosub940:rem equatoriaal-horizonta 
al 

gosub710:rem afstand aarde zon 

540 

rem uitvoer eerste zinnen 

190 

550 

print"[SHIFT-CLR]":wd=int(jd-.5)-7 

200 

gosublllO:rem opkomsttijd zon 


*int(int(jd-.5)/7)rpudef'O" 

210 

gosubl260:rem ecliptic. lengte maa 

560 

print"gevevens[SPACE]van[SPACE]";w 


n 


$(wd);"dag";d;m$(ma);j 

220 

gosubl400:rem breedte enz. maan 

570 

print"om";wt;"[CRSR-LEFT].";:print 

230 

gosub820:rem eklipticaal-equatoria 


using"##";mn;:print"[SPACE]wereldt 


al 


ijd[SPACE]op";abs(br); 

240 

gosub860:rem geocentr-topocentrisc 

580 

ifbr<0thenprint"zb" ; : elseprinfnb" 

250 

gosub940:rem equatoriaal-horizonta 

590 

printabs(le);: ifle<0thenprint"ol" : 


al 


elseprinf'wl" 

260 

gosubl470:rem verlicht oppervlak 

600 

print"[CRSR-DOWN]- 

270 

gosubl520:rem opkomsttijd maan 


[CTRL-9]zon [CTRL-0] - 

280 

ifp$="p"thenprint#4:close4 


-[CRSR-DOWN]" 

290 

print"[CRSR-DOWN][lOxSPACE]<druk[S 

610 

return 


PACE]op[SPACE]toets>":getkeyr$:run 

620 

rem ekliptikale lengte zon 

| 300 

rem definiëren 

630 

dp=(1.882-.016*t)*sin(.999026464+2 

310 

def fnr(y)=(/180)*(y-(360*int(y/36 


.62270627*t) 


0 ))):rem graden worden radialen mo 

640 

dp=dp+6.4*sin(4.0350267+.352556509 


d 2 


*t)+.266*sin(.555014702+2.07594181 

320 

def fns (y)=atn(y/sqr(-y*y+l)) :def 


*t) 


fnc (y)=/2-fns(y) :rem arcsin en are 

650 

lo=279.6966778+(36000*t)+(.768925* 


COS 


t)+(3.025e-4*t*t) 

330 

dim m$(12) 

660 

lo=lo+5.61111111e-5*sin(5.50825912 

340 

w$(l)="woens":w$(2)="donder":w$ (3) 


+(15.59102621*t))+(dp/3600) 


="vrij":w$(4)="zater":w$(5)="zon" 

670 

g=358.4758333+35999*t+(.04975*t)-( 

350 

w$(6)="maan":w$ (0)="dins" :m$(1)="j 


1.5e-4*t*t)+(dp/3600):g=fnr(g) 


anuari":m$(2)="februari":m$(3)= "ma 

680 

dl=(6910.057-17.240*t)*sin(g)+(72. 


art" 


338-.361*t)*sin(2*g)+(1.054*t)*sin 

360 

m$(4)=”april":m$(5)="mei":m$(6)="j 


(3*g) 


uni":m$(7)="juli":m$(8)="augustus" 

690 

l=lo+(dl/3600):l=fnr(l):return 

370 

m$ (9)="september":m$(10)="oktober" 

700 

rem afstand aarde zon 


:m$(11)="november":m$(12)="decembe 




r " 

710 

r=(3.057e-5-l.5e-7*t)+(-7,27412e-3 

| 380 

return 


+ 1.814e-5*t)*cos(g) 

390 

rem juliaanse datum 

720 

r=r+(-9.138e-5+4.6e-7*t)*cos(2*g)+ 

(-1.45e-6)*cos(3*g):rz=10 A r 

400 

print"[SHIFT-CLR][CRSR-DOWN][10xSP 

730 

print"afstand[SPACE]in[SPACE]ae";s 


ACE]z on[SPACE]en[SPACE]maan" 


pc (13);rz 
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. 740 

return 

1120 

gosub450:gosub510:gosub630:gosubSl 

750 

rem ekliptikale breedte zon 

1130 

0 | 
uh=ts-kl: va=(sin(-.01454441)-sin(g 

1 760 

u=ll.250889+483202.025150*t:u=fnr( 


b) *sin (de) ) / (cos (gb) *cos (de) ) 

1 

u) 

1140 

ifuh>thenuh=uh-(2*):gotoll40:elsei 

1 770 

g2=212,45+(58517.493*t):g2=fnr(g2) 


fuh<-thenuh=uh+2*:gotoll40 

| 780 

g5=225.28+(3034.583*t)+.36111111*s 

1150 

ifabs(va)>lthenprint"niet":gotol21 


in (2.334814207+.69710855*t) :g5=fnr 


0 


(g5) 

1160 

ta=s*abs(fnc(va)):tb=ut*/12+ta-uh 

1 7 90 

b=(-.210*cos(2.649410+3*g2-4*g))-. 

1170 

tb=12*(tb/)+.00833 


166*cos(4.63385-2*g5+g)+(.576*sin( 

1180 

iftb>24thentb=tb-24:gotoll80:elsei 


u) ) 


ftb<0thentb=tb+24:gotoll80 

1 800 

b=fnr(b/3600):return 

1190 

pudef"[SPACE]":printusing"##";int( 

8io 

rem van ekliptikaal naar equatoria 


tb);:print"[SPACE] 


al: 

1200 

pudef"0":printusing"##";int(60*(tb 

820 

de=sin (e) *cos (b) *sin (1) +cos (e) *sin 


-int (tb))) 


(b):de=fns(de) 

1210 

ifs=-lthenut=18:s=l:print"onder" ; s 

1 830 

kl= (cos (b) *sin (1) *cos (e) -sin (b) *si 


pc(15):gotoll20 


n(e))/cos(de) :kl=fns (kl) :z(1)=kl:z 

1220 

ts=vl:e=v2:jd=v3:t=v4 


(2)=-kl 

1230 

print"[CRSR-DOWN]- 

1 840 

kl=(cos(b)*cos(1))/cos(de):kl=fnc( 


[CTRL-9]maan [CTRL-0 ]- 


kl) :z(3)=kl:z(4)=-kl 


-[CRSR-DOWN]" 1 

I 850 

gosubl070:kl=zq:return 

1240 

return 

1 8 60 

rem van geo- naar topocentr. (maan 
\ • 

1250 

rem gemiddelde lengten maan 

1 870 

hl=r*cos(de)*sin(kl)-cos(gb)*sin(t 

1260 

lk=270.434164+(480960*t)+(307.8831 


s) 


42*t)- ( .001133*t*t) :lk=fnr(lk) 

880 

h2=r*cos(de)*cos(kl)-cos(gb)*cos(t 

1270 

mk=296.104608+(477000*t)+(198.8491 


s) 


08*t)+(.009192*t*t):mk=fnr(mk) 

1 890 

h3=r*sin(de)-sin(gb) 

1280 

kn=259.183275-(1800*t)-(134.142008 

900 

kl=atn(hl/h2):ifh2<0thenkl=kl+ 


*t) + ( .002078*t*t) :kn=fnr(kn) 

I 910 

dl=atn (h3*sin (kl) /hl) : if sgn (dl) Os 

1290 

lg=279.696678+(36000*t)+(.768925*t 


gn(de)thendl=-dl 


) + ( .000303*t*t) :lg=fnr(lg) 

I 920 

de=dl:r=h3/sin(de):return 

1300 

mg=358.475833+(35640*t) + (359.04975 

1 930 

rem van equatoriaal naar horizonta 


0*t)- ( .000150*t*t) :mg=fnr(mg) 


al: 

1310 

rem ware ekliptische lengte maan 

1 94 0 

tk=ts-kl 



I 950 

h=sin(de)*sin(gb)+cos(de)*cos(tk)* 

1320 

dl=lk-lg:db=(2*lg)-lk-kn 


cos(gb):h=fns(h) 

1330 

'•*co=22640*sin (mk) +769*sin (2*mk) +36* 

I 960 

a= (sin (de) *cos (gb) -cos (de) *cos (tk) 


sin(3*mk)-125*sin(dl) 


*sin(gb))/cos (h) :a=fnc(a) :z(1)=a:z 

1340 

co=co+2370*sin(2*dl)-668*sin(mg)-4 


(2)=-a 


12*sin(2*(lk-kn))+212*sin(2*(dl-mk 

1 978 

a=-(cos(de)*sin(tk))/cos (h) :a=fns ( 


)) I 


a):z(3)=a:z(4)=-a:gosubl070:a=zq 

1350 

co=co+4586*sin(2*dl-mk)+192*sin(2* 

| 980 

h=h*180/:a=a*180/:pudef"[SPACE]" 


dl+mk)+165*sin(2*dl-mg) 

I 990 

hg=int(abs(h))*sgn(h) :hm=60*(abs (h 

1360 

co=co+206*sin(2*dl-mk-mg)-110*sin( 


)-int(abs (h))) 


mk+mg)+148*sin(mk-mg) | 

I 1000 

print"hoogte";spc(13);:printusing" 

1370 

l=lk*180/+(co/3600):l=fnr(1) 


###";hg;:print"[SPACE] 

1380 

return 

1 1010 

ifhg=0andh<0thenprint "[2xCRSR-LEFT 
]-[SPACE] 

1390 

rem ekliptikale breedte enz. maan 

1 1020 

pudef"0":printusing"##";hm:pudef"[ 

1400 

pi=3423+187*cos(mk)+10*cos(2*mk)+3 


SPACE] " 


4*cos(2*dl-mk)+28*cos(2*dl) 

| 1030 

print"azimuth";spc (11); :printusing 

1410 

pi=pi+3*cos(2*dl+mk):pi=fnr(pi/360 


"####"; int(a);:am=60*(abs(a)-int(a 


0):r=l/sin(pi) | 


bs(a) )) 

1420 

ss=.272493*sin(pi):ss=ss*180/ 

1 1040 

print"[SPACE] " ; :pudef"0"rprintusin 

1430 

b=18520*sin(l-kn+.001997432*sin(2* 


g"##";am 


(lk-kn))+.002622842*sin(mg) ) 

J 1050 

return 

1440 

b=b-526*sin(db)+44*sin(db+mk)-31*s 

1060 

rem meeste stemmen gelden 


in(db-mk)-23*sin(db+mg)+ll*sin(db- 
rng) 

1 1070 

forq=lto4:z(q)=z(q)-(2**int(z(q) /( 

1450 

b=b-25*sin(lk-kn-2*mk)+21*sin(lk-k 


2*) ) ) : z(q+4 ) =int(100*z(q) ) : next 


n-mk):b=fnr(b/3600) : return 

1080 

forq=5to8:forq2=qto8 : ifz(q)=z(q2)a 
ndq<>q2thenzq=z(q-4) 

1460 

rem verlicht oppervlak maan 

I 1090 

nextq2 : nextq : return 

1470 

eg=sin(dz)*sin(de)+cos(dz)*cos(de) 

1 1100 

rem opkomsttijd zon 

1480 

*cos(kz-kl) : eg=fnc(eg) 1 

rz=rz*149597870 : r=r*6378.14 : zm=sqr 

1 1110 

vl=ts : v2=e:v3=jd:v4=t:lz=l:bz=b:dz 


(rz*rz+r*r-2*r*rz*cos(eg) ) :r=abs(r 1 


=de : kz=kl : ut=6 : s=-l : print"op" ; spc ( 


) 


18) 

1490 

f=.5+(r*r+zm*zm-rz*rz)/(4*r*rz):pr 
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I 1500 


inf'verlicht[SPACE]gedeelte";spc(9 
) ; £ 

prinfschi jnbare[SPACE]straal";spc 
(9);ss:print"afstand[SPACE]in[SPAC 
E]km";spc(13);r:return 


kl-dk)*(12/)/(ut-du) 
tb=ut+(ta-uh)*12/(dd*) 
iftb<0ortb>24thenvl=vl+l:ifvl=3the 
nprinfniet*" : gotol660 
iftb<0thentb=tb+24:gotol620:else:i 


1510 

rem 

opkomsttijd maan 





ftb>24thentb- 

tb-24 

: goto!620 










1630 

ifit<3thengotol530 




1520 

ut= 

12:s=- 

1:print"op"; 

spc (18) 

; 


1640 

tb=tb+.008333 

: pudef"[SPACE]":print 

1530 

dk= 

kl:du= 

ut:ut=tb 

: it= 

dt+1 




using"## 

";int(tb); 

: pudef"0 

" :print" 

1540 

gosub450: 

gosub510 

: gosub!250: 

gosubl 



[SPACE]" 

; 






430 

:gosub810:gosub870 

:uh=ts- 

kl 


1650 

printusing"## 

" ;int (60*(tb- 

int(tb)) 

1550 

ifuh>thenuh=uh-(2 

*):gotol550 

: elsei 



) 







fuh<-thenuh=uh+2* 

: goto!550 



1660 

ifs=-lthens=l 

: vl=0 

:print"onder", 

• SP 

1560 

va= 

(sin (0 

.002327) 

-sin(gb)*sin(de)) 



c(15);:it=l:ut=12: 

goto!540 




/(cos(gb) 

*cos(de)) 




1670 

return 






1570 

ifabs(va)>lthenprint"niet":goto!66 










0 







** EINDE LISTING zon en maan ** 



1580 

ta= 

s*abs(fnc(va)) 












1590 

ifit=lthendd=.9661:elsedd=l. 

0027- ( 
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Duikboot Cl 6 


Bij dit spel waant U zich ver onder de zee spiegel. Het 
spel heeft iets weg van het bekende spel zeeslag. Een 
uitleg is overbodig omdat in het programma wordt ver¬ 
teld hoe het geheel werkt. Bij de meeste mensen zal 
het wel bekend zijn. Het is geschreven door Henk 
Boxma uit Ruinen. 

1 rem duikboot c-16 

2 rem door h. boxma 

3 rem 

4 rem Ruinen 

5 rem 

10 scnclr 

20 print"[CTRL-9]";tab(15);"duikboot" 

30 print"[2xCRSR-RIGHT]u[SPACE]bent[S 

PACE]admiraal[SPACE]van[SPACE]de[S 
PACE]kon.[SPACE]marine." 

/,n print" [CRSR-DOWN] [2xCRSR-RIGHT] in [ 


SPACE]de[SPACE]haven[SPACE]zijn[SP 
ACE]3[SPACE]vijandelijke" 
print"[CRSR-DOWN][2xCRSR-RIGHT]dui 
kboten[SPACE]waargenomen.[SPACE]de 
ze[SPACE]moeten" 

print"[CRSR-DOWN][2xCRSR-RIGHT]ver 
nietigd[SPACE]worden, [SPACE]omdat[ 
SPACE]het" 

print"[CRSR-DOWN][2xCRSR-RIGHT]ned 
erlandse[SPACE]defensie[SPACE]syst 
eem[SPACE]niet[SPACE]uit" 
print"[CRSR-DOWN][2xCRSR-RIGHT]mag 
[SPACE]lekken. [SPACE]om[SPACE]de z e 
[SPACE]boten[SPACE]te" 
print"[CRSR-DOWN][2xCRSR-RIGHT]ver 
nietigen[SPACE]kunt[SPACE]u[SPACE] 
een[SPACE]aantal" 

print"[CRSR-DOWN][2xCRSR-RIGHT]die 
ptebommen[SPACE]gooien.[SPACE]hier 
voor[SPACE]moet[SPACE]u" 
print"[CRSR-DOWN][2xCRSR-RIGHT]coo 













print-out print-out print-out print-out print-out 


rdinaten[SPACE]van[SPACE]een[SPACE 
]punt[SPACE]invoeren.[SPACE]de" 
print"[CRSR-DOWN][2xCRSR-RIGHT]res 
uitaten[SPACE]zijn[SPACE]te[SPACE] 
zien[SPACE]op[SPACE]een[SPACE]kaar 
t. " 

print"[CRSR-DOWN][13xCRSR-RIGHT]sc 
hampschot[SPACE]:[SPACE]#" 
print"[2xCRSR-RIGHT]symbolen:[2xSP 
ACE]mis[9xSPACE]:[SPACE]Q" 
print"[13xCRSR-RIGHT]raak[8xSPACE] 

:[SPACE][CTRL-9][SPACE][CTRL-0]"; 
printtab(31)"[CTRL-9]<toets>[CTRL 
0] " 
vol8 

restore 700 

do:readx,y:soundl,x,y*2.0:geta$ 
ifa$=""then210:else220 
ford=ltoy*16+30:next: loopuntilx=0 : 
gotol80 
1=0:b=0 

ee=3:rem aantal schepen 

dimx (9) , y (8) 

fork=ltoee 

xb (k) =int (rnd (1) *10) 

yb (k) =int (rnd (1) *9) 

next 

z$="[SPACE]0[SPACE]1[SPACE]2[SPACE 
]3[SPACE]4[SPACE]5[SPACE]6[SPACE]7 
[SPACE]8[SPACE]9" 

a$="[COM-A]C[COM-R]C[COM-R]C[COM-R 
]C[COM-R]C[COM-R]C[COM-R]C[COM-R]C 
[COM-R]C[COM-R]C[COM-S]" 
b$="B[SHIFT-SPACE]B[SPACE]B[SHIFT- 
SPACE]B[SHIFT-SPACE]B[SHIFT-SPACE] 
B[SHIFT-SPACE]B[SHIFT-SPACE]B[SHIF 
T SPACE]B[SHIFT-SPACE]B[SHIFT-SPAC 
E] B" 

c$="[COM-Q]C[SHIFT- + ]C[SHIFT—h]C[S 
HIFT +]C[SHIFT—h]C[SHIFT- + ]C[SHIFT 
+ ]C[SHIFT—h]C[SHIFT- + ]C[SHIFT—h]C 
[COM-W]" 

d$="[COM-Z]C[COM-E]C[COM-E]C[COM-E 
]C[COM-E]C[COM-E]C[COM-E]C[COM-E]C 
[COM-E]C[COM-E]C[COM-X]" 
scnclr 

printchr$(13) 
printtab(10) ; z$ 
printtab(10);a$ 
fori=lto8 
printtab(10);b$ 
printtab(10) ;c$ 
nexti 

printtab(10);b$ 
printtab(10);d$ 


■ 4 0 print"[HOME] [3xCRSR-DOWN]": fori=0t 
08 

50 printtab(8);i;"[CRSR-DOWN]" 

60 next 

70 print"[HOME][23xCRSR-DOWN]getal[SP 
ACE]voor[SPACE]x:":getkeyx$:x=val( 
x$) 

80 print"[HOME][23xCRSR-DOWN]getal[SP 
ACE]voor[SPACE]y:":getkeyy$:y=val( 

y$) 

90 ifx>9ory>8then470 
00 b=b+l:print"[HOME]beurtb 
10 print"[CTRL-9][CRSR-UP]";tab(15);" 
duikboot" 

20 p=3072+ll+x*2+y*80+160:pokep,81 

30 gosub550 
40 goto440 
50 rem rekenroutine 
60 fork=ltoee 

70 ifx=xb(k)andy=yb(k)thensoundl, 100, 
10:sound2,200,10:gosub630 
80 ifabs (xb (k) -x) <=landabs (yb (k) -y) <= 
lthensound3,900,20:gosub610 
90 next 
00 return 

10 p=3072+ll+x*2+y*80+160:pokep,35 

20 return 

30 p=3072+ll+x*2+y*80+160:pokep,160 

40 xb(k)=-l:yb(k)=-l:1=1+1 
50 ifl=eethen670 
60 return 

70 print"[SPACE][HOME][22xCRSR-DOWN] 
alle[SPACE]s chepen[SPACE]zij n[SPAC 
E]tot[SPACE]zinken[SPACE]gebracht[ 
SPACE]!" 

80 print"[9xSPACE]en[SPACE]dat[SPACE] 
in";b;"beurten." 

90 print"[12xSPACE]nog[SPACE]een[SPAC 
E]spel[SPACE]?":getkeya$:ifa$="j"t 
henscnclr:run 
OO data 453,10,516,10 

10 data 596,20,596,20,685,10,739,10 

20 data 770,20,770,30,770,15,739,5 

30 data 739,10,704,65,704,10,685,5 

40 data 685,60,704,10,685,10,685,10 

50 data 643,40,685,10,704,10,596,20 

60 data 643,40,453,10,516,10,685,20 

70 data 685,60,643,10,596,10,596,80 

30 dataO,0 

EINDE LISTING duikboot ** 
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GEOS Archief 


Onder de titel GEOS INFO verzorgen Bert Venema en Peter Boncz een rubriek voor 
de gebruikers van dit populaire besturingssysteem. Lezers worden van harte uitgeno¬ 
digd om al hun vragen, tips en trucs op te sturen. 


GEOS INFO 

Applicaties maken 



A ls u eigen machinetaalprogramma’s vanuit GEOS opstart, worden die 
door GEOS geladen. Vervolgens schakelt de computer kort over naar het 
standaard C64 openingsbeeld. Direct daarna wordt het machinetaalpro- 
gramma met een SYS automatisch vanuit BASIC opgestart. Veel mooier zou 
het natuurlijk zijn als u uw programma’s zou kunnen converteren tot echte 
GEOS applicaties, die gewoon vanuit GEOS worden opgestart en die na het 
beëindigen ook automatisch naar GEOS terugkeren. 


De geplaatste machinetaal-listing 
geeft weer wat u voor uw machine- 
taalprogramma moet pakken om dit te 
bewerkstelligen. Overigens moeten 
machinetaalprogramma's die onder 
GEOS draaien wel aan een aantal 
voorwaarden voldoen. Allereerst mag 
het geheugengebied van $c000 tot 
$ffff absoluut niet gebruikt worden. 
Hierin staat namelijk de GEOS kernal. 
Wordt deze veranderd, dan kan na het 
beëindigen niet meer worden terugge¬ 
sprongen naar GEOS. Bovendien 
moet het machinetaalprogramma, 
waarvan u een applicatie gaat maken, 
beschikken over een fileheader. 

Dit onderwerp is in de artikelen over 
GEOS in dit blad al uitgebreid aan de 
orde gekomen, maar we zullen de be¬ 
langrijkste dingen nog eens herhalen. 
De fileheader is een sector op disk. In 
de directory staat na de naam (dus na 
16 tekens) de track en sector van 
deze fileheader. Overigens staat 2 by¬ 
tes daar weer na het disktype. Uw pro¬ 
gramma is voor GEOS een ASSEM- 
BLY programma, dus een 2, dit moet 
gewijzigd worden in een 6 (de code 
voor een application). In de fileheader 
zijn in dit geval alleen de waardes in 
byte 71-72, 73-74 en 75-76 van be¬ 
lang. Hierin staan resp. het laadadres, 
het eindadres en het startadres van 
het programma. Zorg vooral dat deze 
in orde zijn. 

Dan nog dit, er wordt in het program¬ 
ma met een JSR naar de startroutine 
van uw machinetaalprogramma ge¬ 
sprongen. Als er bij het beëindigen 
van het programma gebruik wordt ge¬ 


maakt van een RTS, dan gaat het dus 
goed. Als het beëindigen van uw ma¬ 
chinetaalprogramma anders geregeld 
is, dan moet u gewoon met een JMP 
naar $0f4b springen. Als uw program¬ 
ma overigens geen beeindigingsmo- 
gelijkheid kent, heeft het natuurlijk 
weinig zin om er een applicatie van te 
maken. Tot slot, de machinetaallisting 
begint op $0f00. U kunt dit echter naar 
believen wijzigen (zolang het maar 
niet in ScOOO of hoger komt). Vergeet 
dan niet de BNE’s in SOfl 7 en S0f2b, 
alsmede de STA,y in S0f22 te veran¬ 
deren. 

Listing application-maker 

OfOO jsr Sc232 schakel diskturbo uit. 
0f03 jsr Sc25c normale C64 1/0 aan. 
0f06 Ida #S03 begin ROM routine INIT 
SCREEN 

0f08 sta S9a EDITOR (normaal $ff81). 

OfOa Ida #$00 

OfOc sta $99 

OfOe ldx#$1e 

Of 10 Ida $ecb8,x 

Of 13 sta $cfff,x 

0f16 dex 

0f17 bne $0f10 

Of 19 jsr $e51b 

oflcjsr $ff5e 

Of 1 f sei 

0f20 Idy #$00 

0f22 Ida $0f59,y 

0f25 sta $0314,y 

0f28 iny 

0f29 cpy #$20 

0f2b bne $0f22 

0f2d cli 

0f2e jsr $ff8a einde routine. 

0f31 jsr $ffcc clear 1/0 routine. 

0f34 Ida #$03 juiste bank switch: nr. 3 
0f36 sta $ddOÖ(d.i. 0-16384) 
schermkleuren. 



0f39 Ida #$00 

Of3b sta $d020 

0f3e Ida #$0f 

0f40 sta $d021 

0f43 Ida #$03 

0f45 sta $0286 

0f48 jsr STARTROUTINE 

0f4bjsr $c271 GEOS 1/0 weer aan. 

0f4e Ida #$08 

0f50 sr $c2b0 Disk initialiseren. 

0f53 sr $c2a1 

0f56 jsr $c22c ga naar DeskTop. 

0f59 $31 ,$ea,$6a,$de,$47,$fe,$4a,$f3, 
Of 61 $19,$de,$0e,$f2,$0a,$de,$33,$de, 
Of 6 9 $57,Sf1 ,$0e,$de,$ed,$f6,$f1 ,$12, 
Of 71 $de,$66,$de,$fe,$02,$de,$66,$de 
0f79 $00 


Wie en wat is 
Berkeley Softworks? 

Met het oog op de naderende Compu¬ 
ter Info Beurs (11 & 12 nov.) zijn er 
vergevorderde onderhandelingen met 
Berkeley Softworks omtrent het ver¬ 
zorgen van een GEOS seminair. Als 
alles doorgaat zoals tot nu toe is ge¬ 
pland komt de "grote man" achter Ber¬ 
keley, Brian Dougherty, naar Neder¬ 
land om persoonlijk een lezing over 
GEOS en GEOS-applicaties te hou¬ 
den. In verband hiermee willen we u, 
in deze rubriek laten kennismaken 
met de man achter GEOS. 

Adviesburo 

Brian Doughery is president en hoofd¬ 
programmeur van het in California ge¬ 
vestigde Berkeley Softworks. Opge¬ 
richt in 1983 functioneerde Berkeley 
Softworks als een technisch advies¬ 
buro. Gedurende 2 jaar ontwikkelde 
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het bedrijf een variëteit aan produkten 
voor anderen. Maar ook het ontwikke¬ 
len van software voor Apple, Commo¬ 
dore en IBM computers behoorde tot 
het werkterrein van Berkeley Soft- 
works. 

In augustus 1985, begon het bedrijf 
van Dougherty de ontwikkeling van 
een nieuw operating systeem voor de 
Commodore 64, genaamd GEOS. Be¬ 
gin 1986 sloten Berkeley en Commo¬ 
dore een contract, dat GEOS met de 
nieuwe C64c zou worden meegele¬ 
verd. In 1987 werd GEOS onderschei¬ 
den met de "Best Technical Achief- 
ment" award, door de Software Pu- 
blishers Ass. Tegenwoordig is de 
GEOS produktlijn beschikbaar voor 
de Commodore 64, 64c en 128, als¬ 
mede voor de Apple ll-serie. Voordat 
Berkeley Softworks werd opgericht 
was Dougherty vice-president bij Ima- 
gic, alwaar hij de leiding had bij de ont¬ 


wikkeling van meer dan 35 software 
produkten. Dit waren voornamelijk vi- 
deo-games en educatieve software. 
Tijdens zijn twee-jarige periode bij 
Imagic, groeide het bedrijf naar een 
omzet van 80 miljoen dollar per jaar. 

Meeting 

Dougherty begon zijn carrière bij een 
afdeling van Mattel Ine., als één van 
de 4 technici die werkten aan een 
nieuw produkt genaamd Intellvision. 
Gedurende zijn medewerking aan het 
Intellvision systeem, groeide het con¬ 
cept uit naar een 500 miljoen produkt¬ 
lijn met een winst van meer dan 50 
miljoen per jaar. 

Dougherty behaalde in 1979 aan de 
Universiteit van California een graad 
in Electrical Engeneering and Compu¬ 
ter Science. 


De onderwerpen die tijdens de mee¬ 
ting aan de orde komen zijn nog niet 
geheel bekend. Maar het is al wel ze¬ 
ker dat de introductie van de nieuwste 
GEOS upgrade, versie 2.0 tot één van 
de belangrijkste gespreksitems be¬ 
hoort. Verder treft u op de beurs diver¬ 
se demonstraties van de meest recen¬ 
te GEOS-applicaties aan. Het is zeker 
de moeite waard om op één van bei¬ 
de dagen een bezoek aan de GEOS- 
stand te brengen. Het spreekt vanzelf 
dat de GEOS-freaks deze ontmoeting 
met Brian Dougherty niet mogen mis¬ 
sen. Dus we zien u op de beurs!! 

Bert Venema en Peter Boncz 


Voor al uw reakties: 
GEOS INFO rubriek 
Postbus 43048 
1009 ZA Amsterdam 


C-128 te koop 

C-128, diskdrive 1571,80-koloms mo¬ 
nitor en printer MPS 803: ƒ 1300,-. 
tel. 02996-3342 (na 18.00 uur) 

Diskdrive gevraagd 
Te koop gevraagd 1541/C en cartrid- 
ge expander + module voor C-64. 
tel. 02502-8855 (na 19.00 uur) 

8032 te koop 

Compleet met 8050 dual drive en 
8024 printer. Compass boekhoudpro- 
gramma, wordcraft tekstverw. 
ƒ 2000,- Tel. 023-263365 

Brother HR-5C 

printer/plotter compleet met thermisch 
papier, voeding, kabel, batterijen en 
handleidingen. Tevens veel program¬ 
matuur en boeken voor de C-128 (o.a. 
robotbesturing en joystick), 
tel 01837-1613 

C-128 te koop 

Compleet met monitor 40-80 koloms, 
diskdrive, joystick, software en boe¬ 
ken. Prijs ƒ 1200,-. Tel. 04192-18679 

C-64 systeem 

C-64, f541 drive, Brother HR-5C, 2 
joysticks, kleurenmonitor 1702, data- 
rec., boeken, en software (o.a. Geos 
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vl .2). ƒ 1500,- Tel. 078-144377 

Te koop gevraagd 
2e-hands 1541-diskdrive met handlei¬ 
ding voor max. ƒ 125,- met event. dis¬ 
kettes (ƒ 0,50 p/St). Tel. 02520-19465 

1084 monitor te koop 

Monitor voor Commodore, nieuw in 
doos. Compleet van ƒ 900,- voor 
ƒ 750,-.Tel. 08851-15293 

C-64 te koop 

Met diskdrive 1541 C, datarecorder, 
Power cart., Simon’s Basic Cart., joys¬ 
tick, 50 diskettes, cassettes, 800 pro¬ 
gramma’s, Geos vl.2. Prijs ƒ 950,- 
Tel. 05427-14517 

C-128 systeem 

te koop C-128 met datarec. 1530, 
1541 drive, diskettes in originele ver¬ 
pakking en met handleiding, 
tel. 010-4342179 (Jan) 

Origineel pakket 

Te koop in originele verpakking: C-64, 
diskdrive, datarec., final cart., mini Of¬ 
fice II, Geos e.a. Alles in één koop: 
ƒ 1100,-. Tel. 078-158769 

Printer te koop 

Gen. Electric printer voor C-64/128 en 


MSX voor ketting, thermisch en nor¬ 
maal papier. Incl. therm. papier A4, 
lint, handl. Z.g.a.n. Tel. 023-241164 

Software te koop 

In originele verpakking met handlei¬ 
ding, Flight Deck, A view to Kill, Back 
to the Future, Oberon, Winter Games, 
Darkside en vele andere. Prijzen tus¬ 
sen ƒ 7,50 en ƒ 35,-Tel. 075-175357 

Boekhoudmachine 

Te koop NCR 299 electr. boekhoud¬ 
machine. Met 2000 kaarten, papierrol- 
len en programma’s voor boekhou¬ 
ding en salarisadm. ƒ 200,-. 
tel. 070-453673 

C-128 systeem te koop 
Met 40-80 koloms monitor, Supers¬ 
cript, Geos, veel software, NL handlei¬ 
ding, diskettebox en tijdschriften. Alles 
in originele verpakking, 
tel. België: 057-204051 (na. 17.00 ) 

Gezocht 

Adventures voor C-64 op tape of disk. 
In ruil voor andere programma’s, 
tel. 05981-260/050-261343 

C-64 te koop 

Met 1541 diskdrive, datarec., final 
cartr., 2 joysticks, software, handl. ƒ 
800,-Tel. 01820-33870 


Commodore Info 7/88 


37 








GEOS Archief 


Het zat al enige tijd in de lucht. De nieuwste, sterk verbeterde versie van de grafische 
interface GEOS is een feit. Na enige geruchten, uit voornamelijk de buitenlandse pers 
is de versie 2.0 van dit populaire pakket nu op de markt gebracht. 


GEOS 2.0 


de tweede generatie !! 


D at, ondanks negatieve klanken betreffende de levensvatbaarheid van C- 
64 software, er toch nog gerenomeerde ontwikkelaars zijn, die zich daar¬ 
aan niet storen wordt nu weer eens bewezen door Berkeley Softworks. Daar 
zitten de programmeurs van het grafische pakket GEOS, dat nu aan zijn 
"tweede leven" gaat beginnen. Nog sneller, geavanceerder en slimmer dan 
de vorige versie 1.3, waarover u in dit artikel alles kunt lezen. 

De nieuwe versie van GEOS, welke is 
gedoopt als versie 2.0, bestaat uit een 
gewichtige samenstelling. Een drietal, 
dubbelzijdige diskettes en een 307 
pagina tellende handleiding vormen 
de inhoud van de doos, die voor deze 
gelegenheid ook in een nieuw jasje is 
gestoken. De hoeveelheid diskettes 
geeft al enigszins aan dat er het een 
en ander is uitgebreid t.o.v. de vorige 
versie. Naast een aantal "nieuwe" ap¬ 
plicaties hebben de reeds bestaande, 
standaard tot het pakket behorende 
applicaties, vele verbeteringen onder¬ 
gaan. De handleiding is opgezet in 9 
hoofdstukken, die elk afzonderlijk een 
applicatie beschrijven. De eerste 2 
hoofdstukken vertellen de gebruiker 
hoe hij aan de slag kan met GEOS en 
hoe er mee om te gaan. Een aantal 
appendices vormen het laatste hoofd¬ 
stuk. 



Installeren 

Zoals alle software die door Berkeley 
wordt uitgebracht, moet ook GEOS 
2.0 geïnstalleerd worden. Dit installe¬ 
ren is bij een applicatie tot doel om il¬ 
legale copieën onbruikbaar te maken. 
Bij GEOS 2.0 is dit installatieproces 
bedoeld om het pakket voor alledaags 
gebruik gereed te maken. Maar het 
belangrijkste bij dit installeren is wel 
de mogelijkheid om reeds eerder ge¬ 
bruikte applicaties, zoals Deskpack 1, 
GeoCalc, GeoFile of GeoPublish met 
deze nieuwe versie te kunnen "boot¬ 
en". Dit betekent dus, dat als u reeds 
enige van deze applicaties bezit en 
destijds heeft geïnstalleerd met 
GEOS 1.3, deze nu ook kunt gebrui¬ 
ken met de nieuwste GEOS versie. Er 
is één "maar" aan verbonden, u dient 
wel over orginele diskettes te beschik¬ 


ken. Anders gaat het installeren van 
deze mogelijkheid niet goed en kunt u 
alleen uw oude 1.3 versie gebruiken 
als "bootdisk". Na het installeren is het 
een goede zaak om een copie van de 
diskettes te maken. Dit is mogelijk met 
alle applicaties met uitzondering van 
de "bootdisk", welke is beschermd te¬ 
gen copieëren. Maar u kunt gerust 
zijn, want de leverancier heeft van de 
"bootdisk" een back-up meegeleverd. 

Benodigde hardware 

GEOS 2.0 draait moeiteloos op een 
Commodore 64/128 met een 1541 
diskdrive. Maar u heeft wel meer pro¬ 
fijt van het pakket, wanneer u gebruik 
maakt van een Commodore 128, een 
RAM Expansie Unit (REU) en een 
tweede diskdrive (bv. 1571). GEOS 
2.0 ondersteunt nu zelfs het gebruik 
van een 1581 drive (3,5 inch), het¬ 
geen de opslagcapaciteit zeer ten 
goede komt. 

U geeft deze specificaties met betrek¬ 
king tot de te gebruiken hardware op 
in het "configure"-file. Nadeel van dit 
file is dat het op iedere werkdiskette 
moet staan die u gaat gebruiken. 


Steeds wanneer u een applicatie 
beëindigd zoekt GEOS naar dit file. In¬ 
dien dit "configure"-file niet op de disk 
staat, die op dat moment wordt ge¬ 
bruikt, zal GEOS één diskdrive her¬ 
kennen. 

Voordeel van het gebruik van een 
1571 of 1581 diskdrive is dat ze dub¬ 
belzijdig kunnen worden geforma- 
teerd, zelfs wanneer u een C64 ge¬ 
bruikt. Vooral bij het gebruik van 
GeoWrite, GeoPaint en GeoPublish is 
dit een welkome verbetering. De 
geïnstalleerde configuratie wordt altijd 
op de DeskTop weergegeven (zie fig. 
1). Plet gebruik van 2 drives en een 
RUE is nu eveneens mogelijk. 

De desktop 

Plet eerste wat opvalt van de ver¬ 
nieuwde DeskTop is de uitgebreide 
menu-balk, bovenin. Twee nieuwe 
pull-down menu’s zijn hierbij gemaakt. 
De eerste, "Select", heeft betrekking 
op selectie van files, waarbij meervou¬ 
dige selecties op een pagina of in een 
border mogelijk is. De optie "page" 
biedt de mogelijkheid om een 
DeskTop pagina toe te voegen of te 
verwijderen. 
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Andere uitbreidingen in de menu-balk 
treffen we aan wanneer we een optie 
selecteren. Onder de optie GEOS tref¬ 
fen we de keuze "pad color mgr" aan 
(zie tig. 2), een desk-accessoire om 
bepaalde filetypen eenzelfde kleur te 
geven, alsmede het kleuren van de 
voorgrond en achtergrond. Met deze 
functie in combinatie met de preferen- 
ce manager kunnen we stellen dat 
GEOS 2.0 nu geheel in kleur werkt. 
Met de optie "undo delete" uit het 
"file"-menu kunnen we het laatst ver¬ 
wijderde file weer terughalen in de 
DeskTop. De naam van zo’n verwij¬ 
derd file staat altijd onder de prulle- 
mand weergegeven, tenzij het "valida- 
te" commando is gebruikt. 

Nieuw is ook de constante aanwezig¬ 
heid van de datum en tijd in de rech¬ 
terbovenhoek van het scherm. De ac¬ 
tuele datum en tijd hoeven, in tegen¬ 
stelling met de vorige versie 1.3, niet 
meer opgegeven te worden middels 
de preference manager, maar kunnen 
d.m.v. de optie "set clock" uit het "op- 
tions"-menu worden ingesteld. 

De applicaties 

De standaard samenstelling van het 
GEOS 2.0 pakket is ook behoorlijk uit¬ 
gebreid, hetgeen aan de prijs niet echt 
te merken is. In Amerika is het pakket 
slechts $10,00 duurder. Wat de prijs 
hier gaat worden is nu nog niet be¬ 
kend. U krijgt er in ieder geval een 
veel uitgebreider geheel voor. Zo tref¬ 
fen we op een van de diskettes de 
nieuwste versie 2.1 van GeoWrite 
aan, een verbeterde GeoPaint, een 
sterk versnelde DiskTurbo en de 
standaard desk-accessoires, zoals de 
calculator, het 127 pagina tellende no- 
tepad, een alarm-klok, photo- en tex- 
talbums en photo- en textmanagers. 
Nieuwe programma’s die worden 
meegeleverd zijn o.a. de applicatie 
Paintdrivers, om GeoWrite documen¬ 
ten te converteren naar GeoPaint, Ge- 
oSpell, de spelling-checker, TextGrab- 
ber, voor tekstbestanden conversie, 
alsook GeoMerge, om mail-merge fi¬ 
les te creëeren, behoren tot de stan¬ 
daarduitrusting. 

Verder wordt GEOS 2.0 geleverd met 
31 printerdrivers, die ervoor zorgen 
dat zo'n 70 populaire printers kunnen 
worden aangestuurd. Ook voor de be¬ 
zitters van een LaserJet printer is er 
een GeoLaser driver meegeleverd. 

Geowrite 2.1 

Een professionele tekstverwerker die 
mogelijkheden bezit als word-wrap, 
proportioneel letterschrift, individuele 
paragraaf formatering, verschillende 


tab-instellingen (waaronder decimale 
tabs) en verschillende opties voor re¬ 
gel spatiëring. Daarnaast biedt Ge- 
oWrite 2.1 de mogelijkheid om gra- 
phics uit GeoPaint te importeren en op 
een willekeurige plaats in het doku- 
ment te plaatsen, zodat tekst om het 
plaatje wordt geplaatst. Het instellen 
van pagina-breeklijnen, de volle 8- 
inch werkbreedte, links, rechts of ge¬ 
centreerd positioneren van tekst be¬ 
horen tot de vele mogelijkheden. 
Invoegen, verwijderen, verplaatsen 
en copiëren van tekst is kinderspel 
met GeoWrite 2.1. 

Wanneer men gebruik wil maken van 
kop- en voetteksten, is dit mogelijk tot 
zelfs 1/3 van de paginalengte. Zoeken 
en vervangen van teksten, woorden of 
zelfs tekens is in GeoWrite simpel te 
bewerkstelligen. Tegelijkertijd kan 
men 10 verschillende letterfonts in 7 
verschillende stijlen gebruiken in een 
dokument (zie fig. 3). Wanneer men 
dubbel klikt met de muis op een woord 
dan wordt deze automatisch geselec¬ 
teerd. Datum en tijd kunnen eenvou¬ 
dig worden ingevoerd met één op¬ 
dracht. En tot slot kan men het uitein¬ 
delijke dokument geheel of gedeelte¬ 
lijk, in draft, NLQ of high quality af¬ 
drukken. 


Paint drivers 

Deze applicatie wordt gebruikt om 
speciale effecten te creëeren met een 
GeoWrite dokument. Met het Paint- 
driver programma ontwerpt u een mi- 
nikrant, voorzien van kolommen en te¬ 
keningen. Of u maakt een mooie kop¬ 
tekst en randvoorzieningen met gra- 
phics uit GeoPaint of Graphics Grab- 
ber. 

Geospell 

j Nieuw is ook de applicatie GeoSpell, 
waarmee de gebruiker snel verkeerd 
gespelde woorden kan opzoeken en ! 

1 verbeteren. De bibliotheek GeoDictio- 
nary) van GeoSpell bevat zo’n 38.000 


woorden, helaas nu nog alleen in het 
Engels. Maar de applicatie biedt de 
mogelijkheid om persoonlijke bibli¬ 
otheken aan te leggen. Deze versie 
van GeoSpell is zo’n 38% sneller dan 
de vorige, separaat geleverde versie, 
(zie fig. 4). 

Geopaint 

Met GeoPaint maakt u "high-resolu- 
tion" tekeningen met behulp van een 
volledig uitgeruste "toolkit". Diagram¬ 
men, graphics kunnen tot een grootte 
van 8 bij 11 inch worden ontworpen. 
Uit vergroten van een detail om m.b.v. 
"pixel-edit" (puntje voor puntje) de te¬ 
kening te preciseren verhoogt de 
nauwkeurigheid. 

GeoPaint bezit 16 kleuren, 14 teken- 
tools, 32 kwasttypen en 32 invulpatro- 
nen. Tekeningen kunnen worden 
geïnverteerd, geroteerd, verplaatst of 
worden gespiegeld. Nieuw in Geo- 
Paint is de mogelijkheid aaneengeslo¬ 
ten lijnen in figuren te tekenen. Het 
vervaardigen van cirkels en ellipsen is 
één van de mogelijkheden, alsmede 
het uitvergroten en op schaal invoeren 
van "photo-scraps". Om "overlay" ef¬ 
fecten te bereiken kan men gebruik 
maken van de transparant-modus (zie 


fig. 5). Instellen van de "grid" lijnen 
maakt het mogelijk om met het mee¬ 
geleverde sjabloon tekeningen en 
plaatjes zeer nauwkeurig na te teke¬ 
nen. 

Kortom, GeoPaint is een tekenpro¬ 
gramma met veel allure (zie fig. 6). 

Desk accessoires 

Het is nu ook mogelijk om het resul¬ 
taat van een berekening met de "cal¬ 
culator" automatisch in te voeren in 
een ander dokument. De calculator 
kan in elke gewenste applicatie als 
"pop-up" worden gebruikt om even 
vlug wat rekenwerk te doen. Ook het 
transporteren van gegevens uit de 
NotePad is een vernieuwing. Zo ook 
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het benoemen van plaatjes en tekst- 
stukjes, die men heeft verzameld in 
resp. het Photo-Album en Text-Album. 
Zoeken naar een bepaald plaatje of 
tekst behoort nu ook tot standaard 
functies van deze laatste twee acces¬ 
soires. 

Text grabber & Geomerge 

Voor het importeren van niet GEOS 
georiënteerde tekstdokumenten, die 
afkomstig zijn van andere word-pro- 
cessors, gebruikt men TextGrabber. 
Hiermee importeert men op eenvoudi¬ 
ge wijze files, welke zijn vervaardigd 
met PaperClip, EasyScript, SpeedS- 
cript, WordWriter of een andere Com¬ 
modore tekstverwerker. 

Met GeoMerge kunnen mail-merge fi¬ 
les worden vervaardigd. Hiermee 
wordt bedoeld dat men een persoon¬ 
lijke brief maakt met GeoWrite en dan 
m.b.v. GemoMerge de bijbehorende 
gegevens combineert met die brief. 
Die gegevens kunnen afkomstig zijn 
uit een GeoFile- of GeoDex-bestand, 
maar net zo goed uit een ander Ge¬ 
oWrite dokument. 


Algemeen 

Men kan tijdens het werken met 
GEOS het beste gebruik maken van 
Commodore 1351 mouse, maar als u 
daarover niet beschikt, is het gebruik 
van het toetsenbord ook mogelijk. 
Meer dan voorheen bevat GEOS 2.0 
short-cuts. Dit zijn enkelvoudige- of 
dubbele toetsaanslagen om een func¬ 
tie te activeren. De DiskTurbo is met 
het lezen en schrijven naar diskette 
zo'n 7 maal sneller geworden. Diverse 
"input-drivers" worden meegeleverd, 
zoals joystick-, lichtpen-, koala pad¬ 
en proportionele mousedrivers. 

GEOS 2.0 bevat tevens een uitgebrei¬ 
de demonstratie-diskette, die de 
GEOS gebruiker in staat stelt kennis 
te maken met andere GEOS applica¬ 
ties zoals GeoPublish, GeoFile, Geo- 
Calc, Deskpack Plus en Fontpack 
Plus. 

Tof slot 

We kunnen gerust stellen dat Berke- 
ley Softworks erin geslaagd is een 
goede vervanger van de oude 1.3 ver¬ 
sie te vervaardigen. Veel nieuwe pro¬ 


gramma’s en sterke verbeteringen be¬ 
horen tot de standaard-uitrusting van 
GEOS 2.0. Ook voor de huidige ge¬ 
bruikers een aanrader om aan te 
schaffen, zeker wanneer men van 
plan is de computer uit te breiden met 
een REU en/of tweede diskdrive. Met 
name de snelheid en de nog meer ver¬ 
beterde gebruikersvriendelijkheid van 
GEOS 2.0 springen eruit. In de aan mij 
ter beschikking gestelde versie van 
GEOS 2.0 (vers van de pers) zat ech¬ 
ter nog een kleine "bug", die wellicht in 
de commerciële versie zal zijn ver¬ 
dwenen. Wanneer u uzelf wilt overtui¬ 
gen van de capaciteiten die dit pakket 
bezit, is het verstandig de komende 
Computer Info Beurs op 11 en 12 no¬ 
vember te bezoeken. Daar worden 
demonstraties met de nieuwe GEOS 
2.0, ook lezingen, over GEOS en de 
aanverwante applicaties gehouden. 
We kunnen met een zekere arrogan¬ 
tie wel zeggen: 

"GEOS HAALT MEER UIT UW COM¬ 
MODORE DAN MEN ZOU VER¬ 
WACHTEN!" 

Bert Venema 


Kleine advertenties 


Te koop C-64 

c-64, d.rec, final cartr.ll, 2 joysticks, 
PBNA cursus, z/w TV, veel software, 
alles 1 jaar oud, voor ƒ 700,-. 
tel. 05750-41412 (na 18.00 uur) 

Brother HR 5 C 

Matrixprinter geheel compleet, incl. 
papier, adapter en inkt. ƒ 250,- 
tel. 053-333140 (na 18.00 uur) 

C-64 II te koop 

Compleet met 1541 diskdrive, 1530 
datarecorder, KCS, joystick, boeken, 
50 diskettes in orig. verpakking, kl.mo¬ 
nitor, diskbox, stofhoes. Prijs ƒ1300,- 
Tel. 070-893751 

Help! 

Met mijn printer MPS 802 werken gra¬ 
fische programma’s (Doodle) niet. 
Wie heeft hulpprogramma of weet 
raad? Tel. 04132-64239 (na 17.00 ) 


Star SG IOC 

Weinig gebruikte Star printer aange¬ 
boden. Direkt aansluitbaar op Com¬ 
modore ƒ 200,- Tel. 020-652994 (Eric) 

Printer te koop 

C.ltoh model 8510, van ƒ2400,- voor 
ƒ 250,- Tel. 02280-13097 (na 17.00) 

Totaal systeem te koop 

C-64, diskdrive en monitor, incl. disks, 
handleiding en user manual totaal ƒ 
800,-. excl. extra MTS 802 printer, 
tel. 015-126781/123297 

Commodore 1520 
Te koop z.g.a.n. 1520 colour-prin- 
ter/plotter + extra's, ƒ 150,- 
tel. 033-723822 (na 18.00 uur) 

Philips monitor te koop 

Groen, voor C-128 40-80 koloms. 
Prijs n.o.t.k. Tel. België: 031669.85.50 


Te koop C-128 

incl. monitor, datarec., joystick, MPS 
803, IBM thermo-printer, diskdrive 
1570, super Toolkit, boeken, software, 
ƒ 1700,-Tel. 02510-20961 

Commodore C-16 

Te koop C-16, datarecorder, joystick, 
spelletjes, NL & Eng. handl., cursus, 
prijs ƒ 200,- Tel. 01740-29335 

Printer gevraagd 

Matrixprinter voor C-64 gevraagd en 
diskdrive. Wel graag in goede condi¬ 
tie. tel. 03210-14082 (na 18.00 uur) 

Power Cartridge 

Te koop Power cartridge II met orig. 
handl. Prijs ƒ 65,- Tel. 02159-15823 

Gevraagd 

Power cartridge copie op tape voor 
besturing van de machinetaal, 
tel. 01823-4560 (Ron) 
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Het opwindende gevoel 
van Out Run 

Een ware sensatie op het gebied van racesimulato- 
ren is het arcadespel Out Run. Het kostte de pro¬ 
grammeurs zo’n 9 maanden om het grafisch ontwerp 
en spelelement om te zetten in een computerspel. 
Van oorsprong wordt dit spel, bekend geworden in 
de video-speelhal, gespeeld in een nagebouwde 
cockpit van een Ferrari Testarossa. Verkrijgbaar in 
verschillende computerversies, waaronder de 
C64/C128, wordt Out Run geleverd voor een prijs die 
rond de 35 gld. ligt. Tevens wordt de originele mu¬ 
ziek op een aparte audiocassette meegeleverd. 



De bedoeling van het spel is, om binnen de beschikba¬ 
re tijd (en die is niet erg lang) een bepaald parcours af te 
leggen. Vanzelfsprekend dient hierbij gebruik gemaakt 
te worden van de 5 versnelling tellende, 4942 cc motor 
van de Ferrari, die met een snelheid van maximaal 180 
mph. over de weg raast. Er zijn vijf trajecten, waaruit de 
coureur kan kiezen. Je start de motor, grijpt de handles 
en neemt deel aan de snelste race ooit verreden. Aller¬ 
lei obstakels kom je onderweg tegen, hetgeen een be¬ 
roep doet op je rijvaardigheidskunsten. Scherpe boch¬ 
ten, medeweggebruikers, bomen, heuvels en nog veel 
meer, kunnen het af te leggen trajekt bemoeilijken, zodat 
de tijdslimiet nauwelijks gehaald kan worden. Een juist 
gebruik van de gaspedaal en versnellingspook voert je 
door het landschap, dat schitterend wordt weergegeven. 
Elke scene moet binnen de gestelde tijd worden door¬ 
kruist. Elke route bestaat op zich weer uit 5 scenes. Zo 
rij je op een zeker moment door Devils Canyon, de wil¬ 
dernis, een wijngaard, of door een graanveld, over een 
bewolkte berg, om uiteindelijk één van de eindbestem¬ 
mingen te bereiken. Alle acties worden bestuurd met be¬ 
hulp van de joystick, waarbij voor- of achteruit zorgt voor 
resp. versnelling en afremmen. De vuurknop zorgt voor 
het schakelen naar een hogere versnelling. Het spel is 
ten einde op het moment dat de beschikbare tijd is ver¬ 
streken of wanneer men het einde van het parcours 
heeft bereikt. 

Het spel vergt op alle niveau’s een zeer behendig ge¬ 
bruik van de joystick. Het is zeker geen makkelijk spel¬ 
letje, datje zo maar even speelt. Eindelijk weer eens een 
echt arcadespel, waarvan je terecht kunt zeggen dat het 
uiterste van je reactie- en coördinatievermogen opeist. 
Het spel is binnenkort ook leverbaar voor de Amiga. De 
C64-versie is leverbaar op cassette en diskette, voorzien 
van een korte, maar duidelijke Engelse handleiding. Een 
must voor iedere snelheidsduivel. 

Bert Venema 


VIA DE PTT OF ONZE SERVICE-DESK 

ESCOIM 

REPARATIE 

SERVICE 


Een storing in uw microcomputer of randapparatuur? 
Niet aarzelen, maar direct opsturen naar Nederlands 
grootste en enige door Commodore en Schneider 
geautoriseerde Third Party Maintenance specialist: 

ESCON. 


ESCON GARANDEERT U DE SNELSTE 
EN MEEST PROFESSIONELE 
REPARATIESERVICE VOOR UW 
COMMODORE EN/OF SCHNEIDER 
COMPUTERS OF RANDAPPARATUUR 


U kunt natuurlijk ook op afspraak langskomen bij onze 
service-desk, waar tegen geringe vergoeding "klaar 
terwijl u wacht service” tot de mogelijkheden behoort. 
De retourzending per PTT/Bode is steeds voor onze 
rekening, bij langskomen ontvangt u een korting van 
f 5,50. Op alle door ons uitgevoerde reparaties geven 
wij 45 dagen garantie. 

HOMECOMPUTERS: CBM's, C64, 
C128, C128D AMIGA’s. Business 
computers: PC10, PC20, AMIGA 
2000, 1512, 1640, JOYCE 
RANDAPPARATUUR: MONITORS, 

Commodore printers, drives, tape units 

Schneider 
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ELECTRONIC SERVICE CONTRACTORS BV 
Antoniuslaan 1, 3341 GA H.I.Ambacht. Tel. 01858-12766. 






Escon is bovendien uiterst bedreven in 
installatie en onderhoud van alle typen 
computers en randapparatuur. 

Van privé-p.c.’s tot micro-systemen. 
Laserprinters, plotters en netwerken. 
Escon biedt de zekerheid dat de meest 
geavanceerde apparatuur probleemloos 
werkt en blijft werken! 
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GEOS Archief 


In dit tweede deel van machinetaalprogrammeren in GEOS behandelt Peter Boncz het 
maken van menu’s en icons, het gebruik van GEOS disk-routines en speciale grafi¬ 
sche routines. Deze onderwerpen worden ingepast in een handleiding voor het schrij¬ 
ven van een eigen applicatie. De bijgeplaatste listing is die testapplicatie: uw eerste ei¬ 
gen machinetaalprogramma in GEOS! 

GEOS Cursus 
machinetaal: deel 

Het eerste GEOS-programma. 

D e vorige aflevering bevatte de introduktie voor het programmeren in 
GEOS. De toen verstrekte gegevens worden nu in de praktijk toegepast: 
we gaan zelf programmeren! Vorige maand werd ook een schema met een 
volledig overzicht van alle GEOS-routines belooft, wegens plaatsgebrek zult 
u daar nog even op moeten wachten. Dit is niet erg, want alle routines die in 
deze cursus gebruikt worden, zullen steeds van tekst en uitleg voorzien zijn. 


Maar eerst gaan we nog eens terug 
naar wat we de vorige keer hebben 
behandeld. Machinetaal-programme- 
ren in GEOS is het makkelijkst met de 
GeoAssembler. Deze GeoAssembler 
gebruikt het systeem van labelen (zo¬ 
als alle assemblers). Variabelen en 
routines, die door GEOS gebruikt wor¬ 
den, zijn gelabeld: ze hebben een 
naam gekregen. Verder kent de Geo¬ 
Assembler functies als: 

’.byte WAARDE (0-255)’, '.wordt 
WAARDE (0-65535)’ en ’.psect 
ADRES’. 

In de vorige aflevering zijn deze spe¬ 
ciale functies al behandeld. Alles wat 
er in deze cursus besproken zal wor¬ 
den, zal echter ook met gewone ma- 
chinetaalmonitoren gedaan kunnen 
worden (dus zonder die speciale func¬ 
ties). Het merendeel van de lezers be¬ 
zit namelijk geen GeoAssembler. 

Programmastructuur 

Een GEOS programma bestaat 
slechts uit een initialisatieroutine, wat 
tabellen (om menu’s en iconen te de¬ 
finiëren) en uitvoerroutines. Als het 
programma loopt, wordt er van deze 
routines geen gebruik gemaakt. 
GEOS bevindt zich dan in MAINLOOP 
(het hoofdprogramma) of INTER- 
RUPTVECTOR (de rasterinterrupt). 
Alleen aan het begin wordt de initiali¬ 
satieroutine doorlopen. Verder komt 
de doorsnee applicatie slechts aan 
bod als er een actie moet worden on¬ 


dernomen, bijvoorbeeld als een menu 
is geselecteerd. In de listing van de 
TESTAPP loopt de initialisatieroutine 
van $9ffc tot $1021. 

De grootste kracht van het GEOS- 
systeem ligt in de vele hapklare routi¬ 
nes die de kernei biedt. De program¬ 


meur hoeft niet iedere keer weer het 
wiel uit te vinden en heeft al standaard 
een heleboel routines ter beschikking 
voor bijv. vermenigvuldigen, delen, 
maar ook het trekken van een HIRES 
lijn etc. Zo’n routine haalt dan vaak 
zijn informatie uit speciale GEOS-ta- 
bellen die de programmeur in het ge¬ 
heugen moet zetten. Het leren pro¬ 
grammeren in GEOS bestaat dus 
vooral uit het goed leren omgaan met 
deze al bestaande faciliteiten. Ik zal 
het dus vooral over GEOS-routines en 
tabellen hebben in deze cursus. 

Routines 

De eerste routine die ik zal bespreken 
is jsr DoMenu. Deze functie zet een 
menu op het scherm en kijkt daarvoor 
in register 0 (R0). Zoals vorige keer is 



uitgelegd worden hier de geheugen- 
plaatsen $0002 en $0003 mee be¬ 
doeld. Deze twee adressen moeten 
pointen naar de menu-tabel. Als bij¬ 
voorbeeld de menu-tabel op $1000 
staat, moet $0002 de waarde $00 
hebben en $0003 moet de waarde 
$10 hebben. Voordat dus jsr DoMenu 


gedaan wordt, moeten dus eerst deze 
twee geheugenplaatsen van de juiste 
waarden voorzien worden. Dit is ook 
te zien in illustratie 1. 

Onder het kopje 'variabelen in’ staat 
welke variabelen in het geheugen van 
tevoren van een waarde voorzien 
moeten worden en waarom. Onder 
het kopje Vernietigd’ staan alle varia¬ 
belen die door de routine zelf veran¬ 
derd worden. Zet hier dus geen infor¬ 
matie in als U de desbetreffende rou¬ 
tine aanroept! 

Menu tabel 

De adressen $0002 en $0003 wijzen 
dus naar de Menu-tabel. Deze tabel 
bepaalt volledig hoe een menu eruit 
gaat zien. In GEOS zijn er 2 soorten 
menu’s mogelijk: horizontale en verti- 




MENUS & ICONS 



naam routine 

adres 

variabelen in 

vernietigd 

omschrijving 

DoMenu 

Scl51 

a -nummer keuze waar pijltje komt, 
r0 -pointer naar menu-tabel. 

r0-rl3,a,x,y 

zet het menu op 
en activeer het. 

GotoFirstMenu 

v> 

o 

s 

geen. 

r0-rl3,a,x,y 

Rol submenus op. 

Dolcons 

$c!5a 

r0 -pointer naar icon-tabel. 

r0-rll ,a,x,y 

zet een ikoon op 


lllustratie 1 
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cale. De menu’s die constant op het 
scherm aanwezig zijn worden hoofd¬ 
menu’s genoemd. Meestal zijn die ho¬ 
rizontaal. Wordt zo'n menu aangeroe¬ 
pen dan verschijnt er een doorgaans 
verticaal SUBmenu (pull-down menu) 


Menu Tabel 

.byte y coördinaat bovenkant (0-199) 

.byte y coördinaat onderkant (0-199) 

.word x coördinaat linkerkant (0-319) 

.word x coördinaat rechterkant (0-319) 

.byte menutype geORd met aantal keuzes, 
bit 7 aan: vertikaal 

uit: horizontaal 

bit 6 aan: pijltje kan alleen in 
menu bewegen, 
uit: pijltje kan overal 
bewegen. 

bit 5-0 : aantal keuzes. 

.word pointer naar tekst keuze 1. 

.byte keuzetype 

bit 7 aan: pointer hierna wijst naar 
submenu. 

bit 6 aan: pointer hierna wijst naar 
dynamic submenu. 

bit 7 en bit 7 uit: pointer hierna 
wijst naar routine, 
bit 5-0: ongebruikt. 

.word pointer submenu/routine (hangt dus 
van keuzetype af). 

.word pointer naar tekst keuze 2. 

.byte keuzetype 

.word pointer submenu/routine (hangt van 
keuzetype af). 

etc. (voor zoveel keuzes als opgegeven bij 
menutype). 

Een routine moet beindigd voorden met een FTS 
De structuur van een submenu is precies het¬ 
zelfde als het schema hierboven. 

_ i 

Illustratie 2 

op het scherm. Het kan echter ook zijn 
dat de computer onmiddellijk actie on¬ 
derneemt wanneer een horizontaal 
menu geselecteerd is. 

In illustratie 2 vindt U de structuur van 
de Menu-tabel. Als de werking U niet 
geheel duidelijk is, kunt U ook naar de 
listing van de TESTAPP kijken. De 
Menu-tabel begint daar in $1022. In 
$1022 tot $1027 staan de coördinaten 
van het menu. De geheugenplaats 
$1028 bevat het menutype (dit is $00- 
dus horizontaal) geORed met het aan¬ 
tal keuzes (2). In $1029 en $102a 
staat dan het adres van de tekst die in 
het eerste menu-hokje staat. Als U de 
uitleg goed leest, dan wijst het zich al¬ 
lemaal vanzelf. 

Icons 

Als het principe van de menus u dui¬ 
delijk is, zullen de Icons niet veel 
moeilijkheden geven. Een Icon is in 
GEOS een plaatje dat een functie 
aanduidt. Klikt men het Icon met de 
muis aan, dan wordt er een routine ge¬ 
start. 

De functie jsr Dolcons zet de Iconen 
op het scherm en activeert ze. Net als 
bij Domenu wijst r0 naarde Icon-tabel. 
De structuur van deze tabel staat in il¬ 


lustratie 3. 

Diskroutines 

In deze aflevering bespreek ik ook 
een aantal diskroutines. GEOS kent 
verschillende niveaus voor het ge¬ 
bruik van diskroutines. 

De routines die deze keer aan bod ko¬ 
men zijn van het hoogste niveau. Hoe 
lager het niveau, hoe meer kleine za¬ 
ken de programmeur zelf moet rege¬ 
len. Deze ’high-level’ routines zoeken 
alles uit voor de programmeur, deze 
kan in zijn luie leunstoel achterover 
geleund blijven liggen. 

Even in een notedop: Opendisk leest 
de gegevens in van de disk die in de 
drive zit. Newdisk doet iets soortge¬ 
lijks, SetDevice geeft de IO-poort aan 
het devicenummer dat in de accu (dus 
Ida #devicenummer) staat. Getfile 
laadt een file in. De naam van de te la¬ 
den file staat in het adres waarnaar in 
in R6 ($000e,$000f) gepoint wordt. 
Deze naam wordt beëindigd met een 
#$00. Is de file een applicatie, dan 
wordt deze na het laden ook gerund. 
De computer keert dan niet terug naar 
de plaats waar jsr GetFile stond. Als 
de file een Desk Accessory (bijv. de 
rekenmachine) is, wordt deze ook ge¬ 
rund, maar de computer keert wel te¬ 
rug naar de jsr GetFile. 

Tenslotte is er nog EnterDesktop, 
deze routine start de DESKTOP, en 
keert nooit naar jsr $EnterDesktop te¬ 


rug. Een overzicht van deze routines 
staat in illustratie 4. 

Grafische routines 

Tot slot behandel ik enkele eenvoudi¬ 
ge grafische routines. Zoals vorige 
keer al besproken werd heeft GEOS 
een voorgrond- en een achtergrond- 
scherm. De geheugenplaats $002f, 
die in GeoAssembly DisplayBufferOn 
heet, bevat informatie hierover. Als bit 
7 aanstaat, is het voorgrondscherm in 
gebruik. Als bit 6 aanstaat, kan er ook 
naar het achtergrondscherm geschre¬ 
ven worden. Het achtergrondscherm 
wordt gebruikt als buffer om de stuk¬ 
ken scherm, die achter een submenu 
of dialogbox stonden, te zijner tijd 
weer tevoorschijn te halen. Normaal 
staan beide bits aan, alleen als u echt 
hele grote programma’s gaat schrij¬ 
ven kan het zijn dat u geen achter¬ 
grondscherm wilt hebben. Op dit on¬ 
waarschijnlijke geval zal ik niet in¬ 
gaan. 

Dan nu ter zake. In illustratie 5 staat 
een schema met grafische routines. 
De functies van HorizontalLine en 
VerticalLine spreken voor zich. Set- 
Pattern wordt veel gebruikt in combi¬ 
natie met Rectangle. Met Setpattern 
wordt een patroon geselecteerd, 
waarmee met Rectangle een recht¬ 
hoek wordt opgevuld. i_Rectangle is 
de ’inline’ versie van Rectangle en 


naam routine 

adres 

DISK 

variabelen in 

vernietigd 

omschrijving 

Opendisk 

$c2al 

geen. 

a,x,y,r0-rl5 


NewDisk 

$clel 

geen. 

a,x,y,r0-rl5 


SetOevi.ee 

Sc2b0 

a -device nunrner. 

a,x,y. 


GetFile 

$c208 

r6 -point naar filenaam, rOL-optie. 

a,y,r0-rl0. 


EnterDesktop 

$c22c 

geen. 


komt niet terug 

MouseUp 

$cl8a 

geen. 


pijltje aan. 


Illustratie 4 


Icon Tabel 

.byte aantal icons 

.word x coördinaat waar pijltje komt na het neerzetten v.d. icons. 
.byte y coördinaat waar pijltje komt na het neerzetten v.d. icons. 

.word pointer naar grafische data van icon 1. 

.byte x coördinaat in bytes (*8 dus) v.d. linkerbovenhoek icon 1. 
.byte y coördinaat in pixels v.d. linkerbovenhoek icon 1. 

.byte breedte icon 1 in bytes (*8). 

.byte hoogte icon 1 in pixels. 

.word routine om naar te springen als icon 1 geselecteerd is. 

.word pointer naar grafische data van icon 2. 

etc. 

De grafische data van een ikoon bestaat uit breedte*hoogte 
bytes, afgesloten met een $00. 

De routines waar eventueel heengesprongen wordt, moeten afgesloten 
worden met een FTS. 

Illustratie 3 
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doet precies hetzelfde. ImprintRec- 
tangle zet een rechthoek in het achter- 
grondscherm, met RecoverRectangle 


haalt men die weer naar de voor¬ 
grond. InvertRectangle inverteert een 
rechthoek. 

Ik zal er eens een voordoen: We kij¬ 
ken in het schema onder 'variabelen 
in’ bij ’HorizontalLine’. Hier staat dat in 
R11L, dus in de low-byte van R11 (d.i. 
11 *2+2 = 24 = hex $0018) de y-coördi- 
naat moet. In R3 staat de x-coördinaat 
links (2 bytes), en in r4 staat de xcoor- 
dinaat rechts (ook 2 bytes). Nu maak 
ik een horizontale lijn van (x,y) 
(10,100) naar (260,100). Het patroon 
dat daarbij gebruikt wordt is gewoon 
massief zwart, dit heeft de code #$01. 
(zie illustratie 6). 

Ida #$64 {100 in $0018 
sta $18 { 

Ida #$0a {10 in $0008 
sta $08 { 

Ida #$00 {0*256 in $0009 
sta $09 {10+0*256=10 
Ida #$04 {4 in $000a 
sta $0a { 

Ida #$01 {1*256 in $000b 
sta $0b {4+1*256=260 
Ida #$01 {patroon 1 
jsr $c118 

In GeoAssembly wordt hetzelfde zo 
genoteerd (dit demonstreert duidelijk 
het gemak van GeoAssembly): 

loadB R11L,#100 
loadW R3,#1Q 
loadW R4,#260 
Ida #$01 

jsr HorizontalLine 

inline Call 

Een heel handige vondst van GEOS is 
de 'inline call’. Na het aanroepen van 
zo’n routine kijkt GEOS in de stack na 
vanaf welk adres er gesprongen is. Di¬ 
rect achter de routine van een inline 


call (deze zijn te herkennen aan het 
voorvoegsel ’ij) staan namelijk de va¬ 
riabelen. Dit kan vooral voor de pro¬ 


grammeur zonder GeoAssembler 
veel tijd en moeite schelen. Niet van 
alle routines bestaan inline call ver¬ 
sies, ik heb er 3 genoemd: i_Rectan- 
gle, iJmprintRectangle en i_Recover- 
Rectangle. Nu een voorbeeldje met 
LRectangle. Ik maak een opgevulde 
rechthoek van (xl ,y1 ,x2,y2) 
(1,30,300,199). Dat ziet er zo uit: 

jsr $c19f 

$01,$00, 

$1e, 


$2c,$01, 

$c7 


in GeoAssembly: 

jsr i_Rectangle 
.byte #30 
.byte #199 
.word #1 
.word #300 

Testapplicatie 

De testapplicatie is een eenvoudig 
programmaatje waarin de nu bespro¬ 
ken technieken gebruikt worden. Het 
maakt een horizontaal hoofdmenu 
met 2 keuzes: ’Menu’tje’ en 'Uit’. 

Als ’Menu’tje’ gekozen wordt krijgt 
men een vertikaal menu met 3 keu¬ 
zes: 


’Keuzel’ - Het scherm wordt wit 
gemaakt. 

’Keuze 2’ - Het scherm wordt 

zwart gemaakt. 

'Normaal’ - Het scherm krijgt weer 
het normale patroon: gestippeld. 

Als ’uit’ gekozen wordt, gaat men weer 
naar de DESKTOP. Wanneer U het al¬ 
lemaal nog niet helemaal begrijpt, kan 
het erg nuttig zijn de listing van de 
TESTAPP goed door te lezen. Precies 
naast elkaar staan de GeoAssembly 
en de normale machinetaal. De ver¬ 
klarende tekst wijst U voor de rest de 
weg. 

Aan de slag 

Wat nu te doen? Voor degenen die 
geen GeoAssembler bezitten is het 
deze keer zelfs gemakkelijker. Zij kun¬ 
nen de kolom in het midden in een ge¬ 
wone monitor invoeren. Als dat ge¬ 
daan is moet het programma ’GEOS- 
PROGRAM-MAKER’, dat in de vorige 
aflevering gelist werd, gerund worden. 
Dit programma vraagt naar de naam, 
datum, dag etc. Dit kunt U allemaal 
naar eigen goeddunken bepalen. Het 
enige echt belangrijke is het invullen 
van de adressen: 
beginadres NU? 4092 


eindadres NU? 4224 
laadadres? 4092 
startadres? 4092 

De PROGRAM-MAKER zet het pro¬ 
gramma dan op disk en het kan dan in 
GEOS (versie 1.2 of hoger) opgestart 
worden. 

De weinigen die een GeoAssembler 
bezitten, moeten de linkerkolom van 
de listing intikken. Laat het adres na 
’.psect’ weg, anders geeft de GeoAs¬ 
sembler een foutmelding. Dit adres 
moet u later, in de Geolinker invullen. 
Tenslotte moet er nog voor een file- 
header gezorgd worden. Hiervoor 
kunt u heel goed de DEMO-header 
(Samseq.hdr), die bijgeleverd wordt 
gebruiken. Let dan wel op de juiste 
start- en laadadressen! 


GKAFHICS 


naam routine 

adres 

variabelen in 

vernietigd 

HorizontalLine 

$cll8 

a -patroon, rllh-y coördinaat, 

r3 -x co. links, r4 -x co. rechts. 

r5-r8,a,x,y, 

rllH. 

VerticalLine 

$cl21 

a -patroon, r3L -y boven, 

r3H-y co. onder, r4 -x coördinaat. 

r4L-r8L, 

rllL,a,x,y. 

SetPattem 

$cl39 

a -nuimer patroon. (0-15) 

a 

Rectangle 

$cl24 

r2L-y co. boven, r2H -y co. onder 
r3 -x co. links, r5 -x co. rechts. 

a,x,y,r5-r8, 
ril. 

iJRectangle 

$cl9f 

.byte y co. bovenkant 
-byte y co. onderkant 
.word x co. linkerkant 
.word x co. rechterkant 


ImprintRectangle 

$c250 

zie Rectangle. 


i^ImprintRect. 

$c253 

zie i Rectangle. 


RecoverRectangle 

$cl2d 

zie Rectangle. 


i_RecoverRect. 

$ClA5 

zie i Rectangle. 


t nvertRectangle 

$c!2a 

zie Rectangle 



Tekent een hori¬ 
zontale lijn. 
Tekent een ver- 
tikale lijn. 
selecteer patroon 
Tekent een op¬ 
gevulde recht¬ 
hoek met het 
geselecteerde 
patroon. 

Zet rechthoek in 1 
achtergrondscherm 
Haal rechthoek van 
achter naar voor. 
Invert rechthoek. 


Illustratie 5 
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Volgende keer ga ik het hebben over 
de moeilijkerdiskroutines, het gebruik 
van dialog Boxes en tekststrings in 
GEOS. 


Bovendien volgt dan de listing van 
Quicktop, de eerste volwaardige ap¬ 
plicatie uit deze cursus. De Quicktop 
is een summiere Public Domain 
Desktop, die de doorstroom naar ap¬ 


plicaties zoals GeoWrite en GeoPaint 
aanzienlijk versnelt. 

Maar probeert u nu de listing van deze 
keer eens uit! 

Peter Boncz 


geoassembly 

.psect 9ffc 
initroutine: 


LIST PC TESTAFP 
normale assentoly 


loadB 

Displaybufferon, 

9ffc 

Ida 

*$c0 


*$c0 

9ffd 

sta 

$2f 

jsr 

NewDisk 

1000 

jsr 

$clel 

jsr 

MouseUp 

1003 

jsr 

$cl8a 

Ida 

*$02 

1006 

Ida 

*$02 

labell: 





jsr 

SetPattem 

1008 

jsr 

$cl39 

jsr 

i Rectangle 

100b 

jsr 

$cl9f 

• byte 

*0 

100e 


*$00 

.byte 

^199 

100f 


*$c7 

.word 

*0 

1010 


*$00,*$00 

.word 

*319 

1012 


*$3f,*$01 

loadw 

RO,menutable 

1014 

Ida 

*$22 



1016 

sta 

$02 



1018 

Ida *$10 



101a 

sta $03 

Ida 

*$00 

101c 

Ida *$00 

jsr 

DoMenu 

101e 

jsr 

$cl51 

rts 


1021 

rts 


menutable: I 




.byte 

/O 

1022 


*$00 

• byte 

*14 

1023 


*$0e 

.word 

*o 

1024 


*$00,*$00 

.word 

m 

1026 


*$60,*$00 

• byte 

*$02 

1028 


*$02 

.word 

menutjeTxt 

1029 


*$5a,*$10 

.byte 

*$80 

102b 


*$80 

.word 

menutjeMenu 

102c 


*$34,*$10 

• word 

uitTxt 

102e 


*$62,*$10 

• byte 

*$00 

1030 


*$00 

• word 

uitRoutine 

1031 


*$4a,*$10 

.byte 

*00 

1033 


*$00 

menutjeMenu: 




.byte 

*14 

1034 


*$0e 

• byte 

*57 

1035 


*$39 

.word 

*0 

1036 


*$00,*$00 

.word 

*60 

1038 


*$3c,*$00 

.byte 

*$83 

103a 


*$83 

.word 

keuzelTxt 

103b 


*$66,*$10 

.byte 

*$00 

103d 


*$oo 

.word 

keuzelRoutine 

103e 


*$50,*$10 

•word 

keuze2Txt 

1040 


*$6e,*$10 

.byte 

*?oo 

1042 


*$oo 

.word 

keuze2Routine 

1043 


*$55,*$10 

.word 

normaalTxt 

1045 


*$76,*$10 

.byte 

*$00 

1047 


*$00 

.word 

initroutine 

1048 


*$fc,*$0f 

uitRoutine: 




jsr 

GotofirstMenu 

104a 

jsr 

$clbd 

jmp 

EnterDesktop 

104d 

jsr 

$c22c 

keuzelRoutine: 




Ida 

*$01 

1050 

Ida 

*$01 

jmp 

labell 

1052 

jmp 

$1008 

keuze2Routine: 




Ida 

*$07 

1055 

Ida 

*$07 

jmp 

labell 

1057 

jmp 

$1008 

menutjeTxt: 

105a 

"MENUTJE"+*$00 


uitTxt: 

"Uit" ,0 
keuzelTxt: 

"Keuze 1",0 
keuze2Txt .- 
"Keuze 2",0 
normaalTxt: 
"normaal",0 


1062 
in HEX: 

1066 
in HEX: 

106e 
in HEX: 

1076 
in HEX: 


/$74,*$6a,*$65,*$00 
"uIT"+*$00 
/$55,*$69,*$74,*$00 
"kEUZE l"+*$00 


uitleg 


Bit 7 + Bit 6 aan in $002f, 
(Fore- + Background on) dus $c0 
Zet de diskdrive stop. 

Doe de muis aan. 

Selecteer patroon 2 
(gestippeld). 

Vul daar het hele 
scherm mee. 


$22 
en 

$10 in R0 wijzen naar 
de menutable in $1022. 

Muis op het eerste menu. 

Zet het menu op. 
einde initialisatie- 
routine. 

Top menu op Y=0. 

Onderkant menu op Y=14. 
Linkerkant menu op X=0. 
Rechterkant bij X=96. 

$02=$C0 (hor.) 0R $02 (2 keuzes 
Tekst "menutje" op $105a. 

$80 betekent: type submenu. 
Submer.u-table in $1034. 

Tekst "Uit" in $1062 

$00 betekent: type AKTIE. 
Uitrcutine op $104a 
einde Menu-table 

Top Menu op Y=14. 

Onderkant menu op Y=57. 

Begin links op X=0. 

Einde Rechts op X=60. 

$83=$80 (vert.) 0R $03 (3 keuzes) 
Tekst "Keuze 1" in $1066. 

$00 betekent: type AKTIE. 
Keuzelroutine op $1050. 

Tekst "Keuze 2" in $106e. 

$00 betekent: type AKTIE. 
Keuze2routine in $1055. 

Tekst "Normaal" in $1076. 

$00 betekent: type AKTIE. 
Initroutine ($0ffc) voor het 
normale patroon. 

Doe het Pull-Dcwnmenu weer weg. 
Ga DESKTOP laden. 

Kies patroon 1 (zwart). 

(in $1008 is jsr SelectPattern) 

Kies patroon 7 (motief). 

(in $1008 is jsr SelectPattern) 
Alle hoofdletter zijn kleine 
letters en alle kleine letters 
zijn hoofdletters in GEOS. 

De hexadecimale waarden 
van de teksten staan alvast 
eronder klaar. 



*$4b,*$65,*$75,*$7a,*$65,*$20,*$31,*$00 
"kEUZE 2"+*$00 

*$4b,*$65,*$75,*$7a,*$65,*$20,/$31,*$00 

"nORMAAL"+*$00 

*$4e,*$6f,*$72,*$6d,*$61,*$61,*$6c,*$00 
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Hoe vaak denkt u niet:"Wat gaat het toch weer lekker langzaam die basic." Ook de ge¬ 
compileerde basic, van de snelste compiler, is vaak slomer dan echte machinetaal. 
Daarom hebben wij zelf wat routines gemaakt die ons vaak snel terzijde staan. Dit keer 
hebben wij een schermroutine en een invoer-routine geprogrammeerd. Dus dit keer 
weinig tekst en veel programma’s. 

TURBO routines 


W ie heeft er niet regelmatig gedacht: "Waarom is er niet iemand zo slim 
om een invoer-routine te schrijven, zodat ik niet telkens met die ’rotte’ 
basic input moet gaan zitten stoeien." Blijkbaar was er nog niemand zo slim. 
Hieronder hebben wij geprobeerd een dergelijke routine voor u te maken. 



Intypen 

Ook hier weer goed uit de ooghoeken 
kijken, en geen fouten maken. Elke 
fout kan funest zijn bij het opstarten. 
Daarom EERST de file wegschrijven 
en daarna opstarten. En denkt u nu 
niet:"Oh mij gebeurd toch niets." want 
dan kunt u nog raar op uw neus kijken, 
wanneer de computer 'hangt'. Wat 
dacht u van een stroomstoring? Heeft 
u die wel eens meegemaakt, en wan¬ 
neer dan veie uren later blijkt dat AL¬ 
LES voor nop is geweest. Dus ook tij¬ 
dens het intypen even 'snel' de inge¬ 
tikte data’s wegschrijven. Hoeft u ten¬ 
minste niet noq een keer alles in te tik¬ 
ken. 

Wat is het 

Wat is het en wat kan ik ermee zult u 
nu misschien denken. Ja het zijn drie 
programma’s die elk weer wat anders 
kunnen doen. Zo is er een ’invoer-rou- 
tine’ die elke programmeur uit de 'in¬ 
voer misere’ haalt. Verder hebben we 
dan de VDC ramwriter, die circa 800% 
sneller data op uw scherm kan plaat¬ 
sen. En dat is toch niet te zuinig. Als 
derde programma hebben we dit keer 
een soort subroutine die voor de VDC 
ramwriter de data in een buffer zet, 
wegschrijft en converteerd naar het 
juiste formaat, dit is de zogenaamde 
scherm editor. 

80 CLS modus 

Bijna alle dit keer door ons gepubli¬ 
ceerde programmatuur werkt uitslui¬ 
tend in de 80 cis mode. Dat wil zeggen 
daar zijn ’ze’ in ontworpen. En neem 
nu bijvoorbeeld de VDC ramwriter, die 
schrijft in het VDC videoram. Natuur¬ 
lijk werkt het dan voor geen meter op 
het 40 cis. Zo ook de schermeditor, die 
werkt ook alleen in de 80 cis modus. 
Ook al weer zo simpel, want die 


schrijft en leest in en uit het VDC vi¬ 
deoram. Wat moet u immers op 40 cis 
als u het onderste uit de kan wilt ha¬ 
len. De '128 kan’ dan wel te verstaan. 
Dus wilt u sneller en een nettere in¬ 
voer, dan zult u de invoer-routine 
moeten intikken. En wanneer u zelf 
schermen voor uw programma’s wilt 
ontwikkelen kunt u de editor en de 
ramwriter even intikken. 

40 CLS modus 

Zoals wij u hierboven al op attendeer¬ 
den werkt bijna alle programmatuur 
uitsluitend in de 80 cis mode. Maar de 
invoer routine werkt ook in de 40 cis 
modus! Dus heeft u (nog) geen 80 cis 
monitor dan kunt u Voorlopig’ op het 
40 cis met de invoer routine aan het 
stoeien. 

De Invoer-routine 

De invoer routine is een hele speciale. 
U kunt de invoer routine bij basic pro¬ 
gramma’s gebruiken. De dataloader 
zet de code, de machinetaal, vanaf 
adres $00b00 klaar voor gebruik neer. 
Na het aanroepen van de invoer routi¬ 
ne heeft u, op de door u ingevoerde 
plaats, een aantal punjes staan, waar¬ 
op u strak data kunt gaan invoeren. 
Het aanroepen gaat als volgt: 

sys 2816,regel,kolom,lengte 

En natuurlijk zult u op de plaats van 
’regel’ een waarde van 1 tot 25 moe¬ 
ten opgeven. Op de plaats van kolom 
moet u dan een waarde tussen 1 en 
77 opgeven. Maar gebruikt u de in- 
voer routine op het 40 cis dan geldt bij 
kolom alleen 1 tot 37! Als laatste zult 
u de lengte van de invoer moeten op¬ 
geven. Probeer het maar eens uit zul¬ 
len we maar weer zeggen. 


Waar blijven de data 

Nu heeft u een invoer routine, maar 
waar blijft die ingevoerde data? Wij 
zetten die even voor u in een buffer. 
Met een klein stukje basic haalt u het 
er dan zo weer uit. Om de ingevoerde 
data vervolgens op het scherm af te 
drukken, of om in een string op te 
slaan. Deze invoer buffer staat trou¬ 
wens vanaf $00c01. Om de data in 
een string te kunnen opslaan kunt u 
het beste het onderstaande stukje 
programma gebruiken. U kunt dat op¬ 
nemen in uw eigen listing, maar wel 
de regelnummers aanpassen! En haal 
de data er wel uit voordat u de invoer 
routine nogmaals aanroept, anders 
bent u de eerder ingevoerde data 
kwijt! 

10 in$="" 

20 sys 2816, regel, kolom, 
lengte:mk=peek(253) 

30 : for tl=1 to mk 

40 : in$=in$+chr$(peek(3072+tl)) 

50 : next tl 

Wanneer u dus het bovenstaande 
programmagedeelte gebruikt gaat al¬ 
les goed. En zal uw data in de in$ zijn 
opgeslagen. U kunt nu vanuit uw ba¬ 
sic programma met deze string verder 
werken. Ook voor het bovenstaande 
programma geldt: geldige waardes in¬ 
voeren a.u.b. anders werkt het niet! 
Dus geen regel en kolom laten staan 
maar daar een waarde invoeren. En 
denk daarbij om de regels die wij al 
eerder in deze tekst hebben opgeven. 

Fast listing 

Om het wat gemakelijker te maken 
hebben wij een zogenaamde fast lis¬ 
ting gepubliceerd. In deze gedocu¬ 
menteerde listing staat een heleboel 
tekst die voor de machinetaal pro¬ 
grammeur zeer handig kan zijn, maar 
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dan moet hij of zij er wel wat mee gaan 
doen natuurlijk! De machinetaal pro¬ 
grammeur heeft immers veel meer 
aan zo’n ’Fast listing' dan aan een ba- 
sic loader. En daarom dus ook deze 
listing. Een ’Fast listing’ is ook veel 
sneller te begrijpen voor niet-machi- 
netaal programmeurs. Ook voor hun 
is deze listing super handig. 

Ingave 

Om een karakter te kunnen binnenha¬ 
len moeten we eerst weten welke 
waardes zijn toegestaan. Wij hebben 
gekozen voor minimaal een 'spatie’ in 
de ’lowercase’ en maximaal een ’shift 
ster’. U kunt dus in de lowercase van 
alles invoeren. Een ’delete’ ’quote’ 
’esc’ en ’return’ zijn kontrole karakters. 
Wanneer u dus een dergelijk karakter 
invoert wordt deze er weer uitgefilterd, 
of die doet een aparte opdracht. 
RETURN 

Zo is er de code $0d (13) voor return, 
met deze return komt u weer uit de in¬ 
voer routine. Heeft u geen data inge¬ 
voerd, dan staat er ook niets in de 
buffer. Dit is dus de 'normale' manier 
van ontsnapping aan onze routine. 
Ook run/stop/restore werkt natuurlijk, 
maar dan bent u alles weer kwijt. 

ESC 

Wanneer u data heeft ingevoerd en er 
niet tevreden mee bent, of u heeft een 
fout gemaakt, drukt u gewoon op de 
’ESC’ toets. Hierdoor zullen de punt¬ 
jes weer opnieuw op het scherm wor¬ 
den gezet, en u kunt weer opnieuw 
gaan invoeren. Een soort van terug 
naar af dus! 

DELETE 

Met ’delete’ kunt u een karakter terug. 
U kunt dus bij een gemaakte typefout 
direct ingrijpen. Gaat het helemaal 
fout pakt u gewoon de ESC toets, 
want dan is alles weer weg! Esc is dus 
een soort hersteller. 

QUOTE 

Wanneer u ’shift 2’ intoetst komt u nor¬ 
maal in de 'quote mode’, maar dat is 
niet de bedoeling. Het 'quote' teken is 
dus taboe voor de invoer routine! Dus 
geen vreemde tekens meer in de in¬ 
voer modus. 

De editor 

De schermeditor is ook al zo’n handig 
programma. U kunt met behulp van 
deze scherm editor, die alleen in de 80 
cis mode werkt, schermen gaan ma¬ 
ken. Een tooi die bij ons zijn sporen al 
heeft verdient. Geloof ons het heeft 
ons al een keer bijna twee weken werk 
bespaard. Het zal je toch maar gebeu¬ 
ren dat iemand je vraagt om een pro¬ 
gramma aan te passen en te vertalen. 


Zit je mooi hoog en droog dan kan je 
er niets gebeuren. Maar wat zonder 
een editor? Geen idee dan maar snel 
een editor ontwikkelen. En zo ont¬ 
stond bij ons deze REUS!! Gewoon 
doen en niet zeuren werd er ons ge¬ 
zegd. En het heeft ons toch nog wat 
opgeleverd, en u ook nietwaar dan. 

Ietsje sneller 

Wanneer het snel kan dan moet het 
snel en wanneer het nog sneller kan 
dan moet het sneller! Met deze weten¬ 
schap zijn wij aan de slag gegaan. En 
wij mogen zeggen niet voor niets is de 
routine zo snel als hij nu is. Wij moes¬ 
ten er even voor gaan zitten maar het 
is zo ver. 

HET SCHERM Het monitor scherm 
heeft na het opstarten van de editor 30 
regels. U kunt die niet gebruiken maar 
daar staat wat informatie omtrent de 
ingevoerede tekens. Zo staat er op 
welke regel en kolom u aan het werk 
bent. Ook wordt elk teken in twee 
groepen verdeeld. Zo is er dan een 
ascii en een schermcode weergave 
op het scherm te zien. U zult dus on¬ 
der in uw scherm, op de 5 extra re¬ 
gels, deze code’s zien staan. Deze 
code's zijn ook weer in twee groepen 
verdeeld, namelijk als ’HEX’ en als 
’DEC’ waarde. Wanneer u dus veel 
met de C64 heeft zitten werken zult u 
de kreet schermcode’s nog wel ken¬ 
nen. 

SAVEN 

Om een door u zelf gemaakt scherm 
te kunnen wegschrijven dient u op de 
pijl naar links toets te drukken. U kunt 
deze toets vinden aan de linker kant 
van het toetsenboard. Vervolgens 
wordt uw scherm in een buffer gezet, 
en kunt u een filenaam invoeren. 
Daarna wordt de data uit de buffer op 
disk weggeschreven. U dient dan wel 
op de return toets te drukken, dit als 
afsluiting van de opdracht wegschrij¬ 
ven. 

STOPPEN 

Om met het programma te kunnen 
stoppen kunt u gewoon op run/stop/ 
restore drukken. Maar er is een bete¬ 
re oplossing voor. Deze is het indruk¬ 
ken van ’shift return' Hierdoor start de 
Cl 28 vanzelf weer, als nieuw, op en 
Ikunt u met een ander programma aan 
de slag. 

TIP 

Lees de ESC code’s uit het vorige 
nummer nog eens door. Die zijn nu 
helemaal handig. 

Na het intypen van de data’s heeft u er 
een geweldig editor bij. Deze editor 
vraagt er om, om gebruikt te worden. 
Dus doe dat dan ook. Nu moeten wij 
het u nog vertellen maar na er een¬ 


maal mee gewerkt te hebben is dat 
beslist niet meer nodig. 

VDC Ramwriter 

Wanneer u eenmaal een scherm, 
helpmenu of ander soort scherm heeft 
gemaakt met behulp van onze scher¬ 
meditor, wilt u natuurlijk kijken hoe het 
is geworden. En niet te vergeten hoe 
snel het op uw scherm wordt gezet. 
Zonder te overdrijven kunnen wij zeg¬ 
gen dat wij nog nooit zo snel een heel 
scherm hebben zien opvullen. 

Onze routine is circa 800% sneller 
dan de kernai routine’s van de CBM 
128. En dat is ook niet gek, want die 
waren niet op een dergelijke manier 
van afprinten berekend. 

Fast listing 

Ook van de VDC ramwriter is een zo¬ 
genaamde 'fast listing’ afgedrukt. 
Weer zo handig voor de machinetaal 
programmeurs onder ons. En weer zo 
handig voor de basic en aspirant ma¬ 
chinetaal programmeur. 

De aanroep 

U kunt de VDC ramwriter op de onder¬ 
staande manier aanroepen: 

sys 2816,19,00,0 

Wanneer u op de bovenstaande ma¬ 
nier de routine aanroept zal de ram¬ 
writer uit bank 0 vanaf adres $1300 de 
data ophalen en op uw scherm plaat¬ 
sen. 19 is dus de decimale waarde 
van $13. En aangenomen dat bij dit 
voorbeeld de data, die u met de editor 
heeft gemaakt, dan door u vanaf 
$01300 is ingeladen door middel van 
bijvoorbeeld: 
bload"filenaam",b0,p4864 
Door deze opdracht wordt de data dan 
vanaf adres $01300 ingeladen! 
voorbeeld 2: 

bload"filenaam",b0,p4865 

en dan 

sys 2816,19,1,0 

zal er voor zorgen dat de ramwriter de 
data vanaf $1301 uit bank 0 ophaalt 
en op uw scherm plaatst. 

Demo 

Om het nog gemakkelijker te maken 
hebben wij voor u een demo in elkaar 
gezet die het kunst en vliegwerk van 
de editor/VDC ramwriter demon- 
streerd. U kunt daarvoor, na de ram¬ 
writer te hebben ingeladen, de basic 
data demo opstarten. 

Veel plezier 

JOHAN &JOHAN 
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Listmcis Turbo routines 


Invoer-routine (basic listing) 

1000 rem"*********************************" 
1010 rem"** Invoer routine voor de CBM 
128 (d) in de 80 cis mode! **" 

1020 rem"** door Johan & Johan voor 

COMMODORE INFO in 1988. **" 

1030 rem"*********************************" 
1040 : 

1050 : for x=2816 to 3014 

1060 : read a 

1070 : cs=cs+a 

1080 : poke x,a 

1090 : next x 

1100 : 

1110 : if cs25705 then 

printchr$(7):list:end 
1120 : 

1130 data 

201,000,240,090,224,000,240,086,192,000,2 
40,082,032,173,011,166 
1140 data 

250,164,251,032,190,011,169,030,032,045,1 
99,169,046,162,255,032 
1150 data 

045,199,232,228,252,208,248,169, 032,032,0 
45,199,166,250,164,251 
1160 data 

032,190,011,032,045,199,032,239, 238,240,2 
51,201,027,208,007,169 


1170 data 

000,133,253,07 6,015,011,201, 034,240,236,2 
01,013,208,017,165,253 
1180 data 

201,000,208,010,169,000,157,000, 012,169, 0 
05,032,045,199,096,201 
1190 data 

020,208,013,166,253,224,000,240,205,198,2 
53,166,253,076,157,011 
1200 data 

024,201,032,144,193,024,201,096,144,010,0 
24,201,193,144,183,024 
1210 data 

201,219,176,178,166,253,228,252,240,172,2 
32,134,253,157,000,012 
1220 data 

072, 169,005,032,045,199,104,032,045,199,0 
76,054,011,160,000,185 
1230 data 

195,011,032,045,199,200,192,004,208,245,0 
76,054,011,202,134,250 
1240 data 

136,132,251,133,252,024, 032,106,204,169, 0 
00,133,253,096,134,235 
1250 data 132,236,096,030,157,046,157 
1260 : 

1270 bsave "invoer_128/m",b0,p2816 to p3014 

EINDE basic listinq invoer-routine 


Invoer-routine (fast assembler) 


buffer 

bsout 

chrin 

plot 

x_pos 

y_pos 

max_len 

kar_teller 

lo_min 

lo_max 

hi min 

hi max 


bnk 0 
org $0b00 

equ $0c00 
equ $c72d 
equ $eeef 
equ $cc6a 
equ $fa 
equ $fb 
equ $fc 
equ $fd 
equ 32 
equ 96 
equ 193 
equ 219 


; schrijf code in bank 0 
;vanaf adres $0b00 (2816) 

;de hieronder gebruikte 'namen' 

.worden hier opgegeven 

.omdat dat gewoon 'lekker' werkt 

;met de x-positie wordt hier dus 
; adres $fa bedoeld enz enz. . . 
/maximal in te geven tekens 
; de karakter teller 
;dit zijn de in te typen tekens 
; in lower- en upper case 
; 'lo' voor lowercase en natuurlijk 
;'up' voor uppercase 


opstart 

start 


3et_punt 


#0 ;aantal karakters gelijk aan 0 

go_out ;dan illegale opstart en exit! 

#0 ;x-positie gelijk aan 0 

go_out ;dan illegale opstart en exit! 

#0 ;y-positie gelijk aan 0 

go out ;dan illegale opstart en exit! 

init ;de init routine zet start waarden 

x_pos ;x-register met x-positie laden 

y_pos ;y-register met y-positie laden 

set_pos ;en vervolgens activeren 

#30 ;accu met kleur laden 

bsout ;en activeren 

#46 ;asc waarde voor punt 

#255 ;x-reg. (teller) met nul laden 

bsout ;print een punt 

;ophogen van het x-register 
max_len /maximaal aantal punten 

set__punt ;nog niet, dan volgende punt afprinten 

#32 ;asc waarde voor spatie 

bsout ;en afprinten 


■ 










1360 


ldx 

x_pos 


1370 


ldy 

y_pos 


1380 


jsr 

set_pos 


1390 


jsr 

bsout 


1400 

main 

jsr 

chrin 


1410 


beq 

main 


1420 


cmp 

#27 


1430 


bne 

cont 


1440 


lda 

#0 


1450 


sta 

kar teller 


1460 


jmp 

start 


1470 

cont 

cmp 

#34 


1480 


beq 

main 


1490 


cmp 

#13 


1500 


bne 

check back 


1510 


lda 

kar teller 


1520 


cmp 

#0 


1530 


bne 

go out 


1540 


lda 

#0 


1550 


sta 

buffer,x 


1560 


lda 

#5 


1570 


jsr 

bsout 


1580 

go out 

rts 



1590 





1600 

check back 

cmp 

#20 


1610 


bne 

check ascii 


1620 


ldx 

kar teller 


1630 


cpx 

#0 


1640 


beq 

main 


1650 


dec 

kar_teller 


1660 


ldx 

kar teller 


1670 


jmp 

delete 


1680 

; 




1690 

check_ascii 

clc 



1700 


cmp 

#lo min 


1710 


bcc 

main 


1720 


clc 



1730 


cmp 

#lo max 


1740 


bcc 

out 


1750 


clc 



1760 


cmp 

#hi min 


1770 


bcc 

main 


1780 


clc 



1790 


cmp 

#hi max 


1800 


bes 

main 


1810 

out 

ldx 

kar teller 


1820 


cpx 

max len 


1830 


beq 

main 


1840 


inx 



1850 


stx 

kar teller 


1860 


sta 

buffer,x 


1870 


pha 



1880 


lda 

#5 


1890 


jsr 

bsout 


1900 


pla 



1910 


jsr 

bsout 


1920 


jmp 

main 


1930 

* 




1940 

delete 

ldy 

#4 


1950 

dummy0 

lda 

tabel,y 


1960 


jsr 

bsout 


1970 


dey 



1980 


bpl 

dummy0 


1990 


jmp 

main 


2000 

/ 




2010 

init 

dex 



2020 


stx 

X_J30S 


2030 


dey 



2040 


sty 

y_pos 


2050 


sta 

max len 


2060 


clc 



;x-reg. laden met de regel 

;en het y-reg. laden met de kolom 

;en naar de routine die deze aanpast 

;druk karakter op het scherm 

;haal een teken via het toetsenboard 

;geen teken dan naar main 

;kontroleer op een 'esc' teken 

/zo niet dan naar volgende kontrole 

/wanneer het een esc teken is accu op 0 

;en karakter teller op nul zetten 

;weer naar start, (puntjes zetten) 

/kontroleer op een 'quote' 

;zo ja dan teken anuleren en naar main 
,-kontroleer op een 'return' teken 
/geen return dan volgende kontrole 
;accu met karakter teller laden 
,-kontroleer of aantal tekens nul is 
;geen nul dan naar basic 
;en anders buffer afsluiten 
;op positie van de waarde van het x-reg 
;kleur weer op de normale waarde 
;terug zetten d.m.v bsout op het scherm 
;nu weer terug naar aanroep (basic) 

,-kontroleer op een 'delete' teken 
;geen delete dan verder met ascii kontrole 
;x-reg. met karakter teller laden 
/is de teller 0 ? 

/zo ja anuleer ingave 

;en zo niet, teller met 1 aflagen 

;x-reg. met teller laden 

,-en 1 karakter van het scherm afvegen. 

;carry wissen 

;kontroleer minimale waarde lowercase 
;kleiner, dan fout 
;carry wissen 

;kontroleer maximale waarde lowercase 
;kleiner, dan oke! 

;carry wissen 

;kontroleer minimale waarde uppercase 
;kleiner, dan fout! 

;carry wissen 

/kontroleer maximale waarde uppercase 
;groter dan fout! 

;x-reg. met aantal karakters laden 
;maximale ingave? 

;zo ja dan weer terug naar af! 

;buffer positie ophogen 

;x-reg. op karakter teller zetten 

;en het karakter in de buffer schrijven 

;ons karakter even opbergen 

;accu met de code voor wit laden 

;en kleur via bsout zetten 

;nu ons karakter weer terug halen 

;en op het scherm plaatsen 

;op naar de volgende ingave 

;sub-routine 'delete' 

;tabel waarde inladen 
;afprinten op het scherm 
;y-register aflagen 
;nog geen nul, dan volgende 
;en maar verder 

;x-positie bijstellen 

;op onze x-positie wegzetten 

,-y-positie bijstellen 

;op onze y-positie wegzetten 

/maximaal aantal karakters opbergen 

/carry wissen, voor 




















I 2070 


jsr plot 

;cursor positie goed zetten 

1 2080 


lda #0 

;accu met waarde nul laden, en 

2090 


sta kar teller 

;op de de karakterteller zetten 

1 2100 


rts 

;terug uit sub-routine 

1 2110 

* 



2120 

set pos 

stx $eb 

;regel positie wegzetten. ] 

2130 


sty $ec 

;kolom positie wegzetten. 

1 2140 


rts 

/terug uit sub-routine. 

2150 

ï 



2160 

tabel 

dat $9d2e9dle 


1 2170 


end 

/einde voor de 'fast' assembler 




1130 data 

Ramwriter (basic listing) 

133,253,134,252,132,254,160,000,140,000,21 




55,032,086,011,162,018 

I 1000 

rem" ★*********■*'***************'*****'*'* M 1140 data. 

i ïoio 

rem"** VDC ramwriter voor de 

CBM 032,048,011,032,060,011,032,086,011,162,0! 

128(d) in de 80 cis mode! **" 

19,032,048,011,032,060 

1 1020 

rem"** 

door Johan & Johan voor 1150 data 

COMMODORE INFO 

in 1988. **" 

011,032,086,011,201,255,240,032,032, 046, 0 : 

l| 1030 

rem" *********************************" 11,076,030,011,162,031 

1 1040 



1160 data 

1 1050 

: for x=2816 

to 2911 

142,000,214,044,000,214,016,251,141,001,2 

1060 

: read a 


14,096,024,165,252,105 

1070 

: cs=cs+a 


1170 data 

1 1080 



001,133,252,144,002,230,253,096,032,060,0 

1 1090 

next x 


11,032,086,011,201,255 

i 1100 



1180 data 

1 1110 

if cs9594 then printchr$(7):list 

. end 240,003,076,014,011,096,169,252,166,254,1 

i 1120 



60,000,032,116,255,096 




1190 : 

1 1000 


bnk 0 

/schrijf code in bank 0 

1010 


org $0b00 

/vanaf adres $0b00 (2816) 

1020 

init 

sta $fd 

/adres in het a en x-register 

1030 


stx $fc 

/wegschrijven als basis adres 

1040 


sty $fe 

/banknummer uit y-reg. wegzetten 

1 1050 


ldy #0 

/y-reg. laden met waarde 0 

1060 


sty $ff00 

/en alle rom inschakelen 

1070 

; 



1 1080 

set ram 

jsr load ram 

/data uit buffer ophalen 

1 1090 

set ram2 

ldx #18 

/x-register laden met waarde 18 

1100 


jsr set req 

/en wegzetten 

1110 


jsr inc count 

; bufferteller met 1 ophogen 

1120 


jsr load ram 

/data uit buffer ophalen 

1130 


ldx #19 

/x-register laden met waarde 19 

1 1140 


jsr set reg 

; en wegzetten 

1 1150 

; 



I 1160 

qet data 

jsr inc count 

/bufferteller met 1 ophogen 

1170 


jsr load ram 

; data uit ram ophalen 

1 1180 


cmp #255 

/gelijk aan 255 ? 

1 1190 


beq check next 

/ ja dan sprong, en anders 

1200 


jsr write data 

/data in videoram zetten 

1 1210 


jmp qet data 

/en volgende data 

I 1220 

; 



J 1230 

write data 

ldx #31 

/x-register laden met waarde 31 

1 1240 

set req 

stx $d600 

/en plaatsen op adres $d600 

1 1250 

wait 

bit $d600 

/test status van 8563 chip 

1 1260 


bpl wait 

/klaar, anders nog even wachten! 

i 1270 


sta $d601 

/schrijf data in videoram 

1 1280 


rts 

/ en terug 

j 1290 

; 



1300 

inc count 

clc 

/wis de carry vlag en 

1 1310 


lda $fc 

/load accu met waarde van adres $fc 

I 1320 


adc #1 

/deze waarde met 1 ophogen 

I 1330 


sta $fc 

/en weer terug zetten op $fc j 

1 1340 


bcc next 

/niet groter dan 255, dan terug j 

1350 


inc $fd 

/en anders high-byte 1 ophogen 1 

1360 

next 

rts 

/daarna terug 1 

1370 

; 



1380 

check next 

jsr inc_count 

/bufferteller met 1 ophogen 







1390 jsr load ram ;en data uit buffer ophalen 

1400 cmp #255 /vergelijk waarde met 255 

1410 beq exit /gelijk, dan terug naar aanroep 

1420 jmp set ram2 /data wegschrijven in videoram 

1430 exit rts 

1440 / 

1450 load ram lda #$fc /pointer naar het load adres 

1460 ldx $fe /data ophalen uit bank ($fd) 

1470 ldy #0 /index op nul 

1480 jsr $ff74 /indfet routine van de kernal 

1490 rts /aanroepen en daarna terug 

1500 end /einde van de 'fast' assembler 


Listing Editor 

1000 rem"********************************" 
1010 rem"** Scherm editor voor de CBM 

128(d) in de 80 cis mode! **" 

1020 rem"** door Johan & Johan in 

1988 voor COMMODORE INFO! **" 

1030 rem"********************************" 
1040 : 

1050 : for x=4864 to 6709 
1060 : read a 
1070 : cs=cs+a 

1080 : poke x,a 

1090 : next x 
1100 : 

1110 if csl75430 then 

printchr$(7):list:end 
1120 : 

1130 data 

007,208,112,064,064,064,064,064,064,064,1 
14,064,064,064,064,064 
1140 data 

064,064,114,064,064,064,064,064,064,064,1 
14,064,064,064,064,064 
1150 data 

064,064,114,064,064,064,064,064,064,064,1 
14,064,064,064,064,064 
1160 data 

064,064,114,064,064,064,064,064,064,064,1 
14,064,064,064,064,064 
1170 data 

064,064,114,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
1180 data 

064,110,255,008,032,074,032,018,005, 007,0 
05,012,032,032,032,011 
1190 data 

015, 012, 015,013,032,032,032,001,019,003,0 
09,009,032,032,032,032 
1200 data 

008,005,024,032,032,032,032,032,004,005,0 
03,032,032,032,032,002 
1210 data 

005,005,012,004,032,032,032,032,008,005,0 
24,032,032,032,032,032 
1220 data 

004,005,003,032,032,032,032,032,032,032, 0 
32,020,009,010,004,032 
1230 data 

032, 032, 032,032,074,255,008,112,038,032,0 
32,032,032,032,032,032 
1240 data 

032,032,032,032,032,032,032,032, 032, 032,0 
32,032,032,032,032,032 
1250 data 

032,032,032,032,032,032,032,032, 032, 032,0 


32,032,032,032,032, 032 
1260 data 

032,032,032,032,032,032,032,032,032,032,0 
32,032,032,032,032,032 
1270 data 

032,032,032,032,032,032,032,032,032, 032, 0 
32,032,032,032,032, 032 
1280 data 

032,032,032,032,032,032,032,038,255,008,1 
92,074,032,032,048,048 
1290 data 

048,032,032,032,032,032,048,048,048, 032,0 
32,032,032,032,032,045 
1300 data 

062,032,032,032,032,032,032,048,048, 032,0 
32, 032,032,032,048,048 
1310 data 

048,032,032,032,032,032,032,045,062,032, 0 
32,032,032,032,032,048 
1320 data 

048,032,032,032,032,032,048,048, 048, 032, 0 
32,032,032,032,032,032 
1330 data 

032,032,032,032,032,032,032, 032, 032,032,0 
74,255,009,016,109, 064 
1340 data 

064,064,064,064,064,064,113,064,064,064,0 
64,064,064,064,113,064 
1350 data 

064,064,064,064,064,064,113,064,064,064,0 
64,064,064,064,113,064 
1360 data 

064,064,064,064,064,064,113,064,064,064,0 
64,064,064,064,113,064 
1370 data 

064,064,064,064,064,064,113,064,064,064,0 
64,064,064,064,113, 064 
1380 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,125,255,255 
1390 data 

032,032,032,032,032,032,032,032,032,032,0 
32,032,032,032,032,032 
1400 data 

032,032,032,032,032,032,032,032, 032, 032,0 
32,032,032,032,032,032 
1410 data 

032,033,034,035,036,037, 038,039,040,041,0 
42,043,044,045,046,047 
1420 data 

048, 049, 050, 051,052,053,054,055,056,057,0 
58,059,060,061,062,063 
1430 data 

000,001,002,003,004,005,006,007,008,009, 0 
10,011,012,013,014,015 
1440 data 

016,017,018,019,020,021,022,023,024,025, 0 
26,027,028,02 9,030,031 










1450 data 

064,065,066,067,068,069,070,071, 072, 073, 0 
74,075,076,077,078, 079 
1460 data 

080,081,082,083,084,085,086, 087,088,089, 0 
90,091,092,093,094,095 
1470 data 

032,032,032,032,032,032,032,032, 032,032,0 
32,032,032,032,032,032 
1480 data 

032,032,032,032,032,032,032,032,032,032,0 
32,032,032,032,032,032 
1490 data 

096,097,0 98,099,100,101, 102,103,104,105,1 
06,107,108,109,110,111 
1500 data 

112,113,114,115,116,117,118,119,120,121,1 
22,123,124,125,126,127 
1510 data 

064,065,066,067,068,069,070,071,072,073, 0 
74,075,076,077,078,079 
1520 data 

080, 081,082,083, 084,085,086,087,088,089,0 
90,091,092,093,094,095 
1530 data 

096,097,098,099, 100,101,102,103,104,105,1 
06,107,108,109,110,111 
1540 data 

112,113,114,115,116,117,118,119,120,121,1 
22,123,124,125,126,094 
1550 data 

004,016,080,012,005,001,019,005, 032,005, 0 
14,020,005,018,032,006 
1560 data 

009,012,005,014,001,013, 005,058,255,255,1 
69,000,141,000,255,169 
1570 data 

128,133,24 7,169,253,141,048,208,169, 147,0 
32,045,199,169,014,032 
1580 data 

045,199,032,033,203,032,229,202,162,020,1 
69,010,141,047,010,032 
1590 data 

205,023,162,021,169,000,032,205, 023, 162,0 
06,169,030,032,205,023 
1600 data 

162,007,169,035,032,205,023,169,010,133,2 
50,162,018,165,250,032 
1610 data 

205,023,162,019,169,000,032,205, 023, 162,0 
31,169,143,032,205,023 
1620 data 

162,030,169,255,032,205,023,230,250, 165,2 
50,201,020,208,220,169 
1630 data 

000,162,019,032,067,02 4,169,033,133, 082, 1 
69,026,133,083,169,082 
1640 data 

162,001,160,001,032,101,255, 032,217, 023, 0 
32,235,238,240,248,133 
1650 data 

027,032,142,023,032,117,023,133,251, 134,2 
52,132,253,160,227, 032 
1660 data 

175, 023,165, 027,032,142,023,032,155,023,1 
33,251,134,252,169,032 
1670 data 

133,253,160,219,032,175,023, 166, 027,224, 0 
32,208, 004,138,076,127 
1680 data 

022,189,160,020,201,032,208,007,169,045,1 


70,168,076,130,022,032 
1690 data 

117,023,133,251,134,252,132,253, 160,251, 0 
32,175,023,166,027,224 
1700 data 

032,208,004,138,076,164,022,189, 160, 020,2 
01,032,208,006,169,045 
1710 data 

170,076,167,022,032,155,023,133,251,134,2 
52,160,032,132,253,160 
1720 data 

243,032,175,023,165,027,201,141,240, 036, 2 
01,095,240,035,201,145 
1730 data 

240,073,201,017,240,080,201,157,240,087,2 
01,029,240,094,032,045 
1740 data 

199,165,236,032,055,023,165,235,032,086,0 
23,076,055,022,076,000 
1750 data 

224,032,22 6,202,032,12 9,024,032,199, 024, 1 
69,147,032,045,199, 169 
1760 data 

160,162,021,032,067,024,032, 064, 025, 169, 2 
55,162,010,032,205, 023 
1770 data 

169,005,032,045,199,032,24 6, 025, 076, 186, 0 
21,032,045,199,165,235 
1780 data 

032, 08 6, 023, 07 6,055,022,032,045,199,165,2 
35,032,086,023,076,055 
1790 data 

022,032,045,199,165,236,032,055, 023, 076, 0 
55,022,032,045,199, 165 
1800 data 

236,032,055,023,07 6,055, 022, 032,251, 249, 1 
33,250,134,251,162,018 
1810 data 

169,008,032,205,023,232,169,204, 032,205, 0 
23,165,251,032,203,023 
1820 data 

165,250,032,203,023,0 96,032,251,249, 133, 2 
52,134,253,162,018,169 
1830 data 

008,032,205,023,232,169,196, 032,205, 023, 1 
65,253,032,203,023,165 
1840 data 

252,032,203,023,0 96, 160, 048, 05 6, 233, 100, 1 
44,003,200,176,249,105 
1850 data 

100,162,048,056,233,010,144,003,232,176,2 
49,105,058,096,024,201 
1860 data 

192,144,007,201,223,17 6,003,056,233, 096, 0 
96,168,041,015,170,152 
1870 data 

041,240,024,074,074,074,074,168,189, 034,0 
2 6,190,034,02 6,0 96, 162 
1880 data 

018,169,008,032,205,023,232,152,032,205, 0 
23,165,253,032,203,023 
1890 data 

165,252,032,203,023,165,251,032,203, 023, 0 
96, 162, 031,142,000,214 
1900 data 

044,000,214,016,251,141,001,214,096,160,0 
03,173,011,220,041,031 
1910 data 

07 6, 230,023,185,008,220, 041, 240, 074, 074, 0 
74,074,072,185,008,220 











1920 data 

041, 015,072,136,208,237,173,008,22 0,104,1 
62,008,032,044,024,104 
1930 data 

162,007,032,044,024,169,010,162,003,032,0 
44,024,169,010,162,006 
1940 data 

032, 044,024,104,162,005,032,044,024,104,1 
62,004,032,044,024,104 
1950 data 

162,002,032,044,024,104,162,001,032,04 4,0 
24,096,024,105,048,072 
1960 data 

138,162,019,105,003,032,205, 023, 169, 009,2 
02,032,205,023,104,032 
1970 data 

203,023,096,133,250,134,251,160,000,177,2 
50,162,018,032,205,023 
1980 data 

232,032,104,024,177,250,032,205,023,032, 1 
04,024,177,250,201,255 
1990 data 

240,018,032,203,023,076,089, 024,024,165,2 
50,105,001,133,250,144 
2000 data 

002,230,251,096,032,104,024,177,250,201,2 
55,240,003,076,075,024 
2010 data 

096,169,000,133,251,133,253, 133,252, 169, 0 
32,133,254,162,018,165 
2020 data 

252, 032,205,023,232,165,251,032,205,023,1 
60,000,169,031,141,000 
2030 data 

214,04 4,000,214,016,251,173, 001,214,145,2 
53,230,253,208,002,230 
2040 data 

254,230,251,208,002,230,252, 165, 252,201, 0 
08,208,006,165,251,201 
2050 data 

208,240,003,076,141,024,096,169,255,162,0 
31,133,251,134,252,169 
2060 data 

255,162,047,133,158,134,15 9, 162,000, 160, 0 
00,032,036,025,224,001 
2070 data 

240,053,177,251,201,032,24 0,243,072, 032, 0 
57,025,165,252,056,233 
2080 data 

032,145,158,032,057,025,165,251,145, 158,1 
04,032,057,025,145,158 
2090 data 

032,036,025,224,001,240,016,177,251,201,0 
95,208,238,009,160,032 
2100 data 

057,025,145,158,07 6,219,024,169,255, 032,0 
57,025,145,158,032,057 
2110 data 

025,145,158,096,230,251,208,002,230,252,1 
65,252,201,039,208,008 
2120 data 

165,251,201,208,208,002,162, 001, 0 96,230, 1 
58,208,002,230,159,096 
2130 data 

032,220,025,169,030,032,045,199, 166,250, 1 
64,251,032,241,025,169 
2140 data 

046,162,016,032,045,199,202,224,255,208,2 
48,169,032,032,045,199 
2150 data 

166,250,164,251,032,241,025, 032, 045,199,0 
32,235,238,240,251,201 


2160 data 

027,2 08,007,169,000,133,253,076,067,025,2 
01,034,240,236,201,013 
2170 data 

208,012,165,253,201,000,208,005,169,000,1 
57,224,015,096,201,020 
2180 data 

208, 013,166,253,224,000,240,210,198,253,1 
66,253,076,204,025,024 
2190 data 

201,032,144,198,024,201,096,144,010, 024,2 
01,193,144,188,024,201 
2200 data 

219,17 6,183,166,253,224,016,240,177,232, 1 
34,253,157,224,015,072 
2210 data 

169,005,032,045,199,104,032,045,199,076,1 
06,025,160,000,185,050 
2220 data 

02 6,032,045,199,200,192,004,208,245, 07 6,1 
06,025,162,013,160,023 
2230 data 

024,032,024,192,166,235,134,250, 164,236, 1 
32,251,169,000,133,253 
2240 data 

096, 134,235,132,236,096,165,253,162,225,1 
60,015,032,189,255,169 
2250 data 

000,162,000,032,104,255,169,000,162,008,1 
60,000,032,186,255,169 
2260 data 

000, 162,048,133,250,134,251,169,250,166,1 
58,164,159,032,216,255 
2270 data 

096, 223,048,04 9,050,051,052,053,054,055,0 
56,057,065,066,067,068 
2280 data 069,070,030,157,046,157 
2290 : 

2300 bsave "editor_128/m",b0,p4864 to 
p6709 

2310 sys 5562 

EINDE listinq Editor 






Demo Ramwriter 


| Listing demo Ramwriter 

j 1000 rem"********************************" 

\ 1010 rem"** VDC ramwriter demo voor de 
CBM 128(d) in de 80 cis mode! **" 

\ 1020 rem"** door Johan & Johan voor 

COMMODORE INFO in 1988. **" 

| 1030 rem"********************************" 
1040 : for x=4864 to 6089 
| 1050 : read a 
1060 : cs=cs+a 

1070 : poke x,a 
1080 : next x 
| 1090 : 

j 1100 if cs85805 then printchr$(7):list:end 

I 1110 : 

; 1120 printchr$(147) 
j 1130 sys2816,19,0,0 
j 1140 sleep 1 
j 1150 sys2816,20,91,0 
1160 sleep 1 
) 1170 sys2816,20,162,0 
i 1180 sleep 1 
1 1190 sys2816,21,78,0 
1 1200 sleep 1 
I 1210 sys2816,21,149,0 
1220 sleep 1 
1 1230 sys2816,23,153,0 
1240 sleep 1 
| 1250 sys2816,23,185,0 
! 1260 goto 1260 
i 1270 data 

000,000,112,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
| 1280 data 

064,064,064,064,064,064,064,064, 064,064,0 
64,064,064,064,064,064 
I 1290 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
1300 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
I 1310 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,110 
I 1320 data 

255,000,080,093,255,000,157,093,255,000,1 
60,093,255,000,237,093 
I 1330 data 

255,000,240,093,255,001,061,093,255, 001, 0 
64,093,255,001,141,093 
1340 data 

255,001,144,093,255,001,221,093,255,001,2 
24,093,255,002,045,093 
1350 data 

255,002,048,093,255,002,125,093,255,002,1 
28,093,255,002,205,093 
1 1360 data 

255,002,208,093,255,003,029,093,255,003,0 
32,093,255,003,109,093 
I 1370 data 

255,003,112,093,255,003,189,093,255,003,1 
92,093,255,004,013,093 
1380 data 

255,004,016,0 93,255,004,093,093,255, 004,0 
96,093,255,004,173,093 
I 1390 data 

255,004,17 6,0 93,255,004,253, 0 93,255, 005,0 
I 00,093,255,005,077,093 


1400 data 

255,005,080,0 93,255,005,157,093,255,005, 1 
60,093,255,005,237,093 
1410 data 

255,005,240,093,255,006,061,093,255,006,0 
64,093,255,006,141,093 
1420 data 

255,006,144,093,255,006,221,093,255,006,2 
24,093,255,007,045,093 
1430 data 

255,007,048,093,255,007,125,093,255,007,1 
28,109,064,064,064,064 
1440 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
1450 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
1460 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
1470 data 

064,064,064,064,064,064,064,064,064,064,0 
64,064,064,064,064,064 
1480 data 

064,064,064,064,064,064,064,064,125,255,2 
55,000,246,045,032,045 
1490 data 

032,045,032,045,032,045,032,045,032,045,0 
32,045,032,045,032,045 
1500 data 

032,045, 032, 045, 032,045, 032, 045, 032,045, 0 
32,045,032,045,032,045 
1510 data 

032,045,032,045,032,045,032,045, 032,045, 0 
32,045,032,045,032,045 
1520 data 

032,045,032,045,032,045,032,045,032,045,0 
32,045,032,045,032,045 
1530 data 

255,255,005,082,068,005,026, 005, 032,004,0 
05,013,015,032,012,001 
1540 data 

001,020,032,004,005,032,019,014,005, 012, 0 
08,005,009,004,032,022 
1550 data 

001,014,032,004,005,032,086,068,067,032,0 
18,001,013,032,023,018 
1560 data 

009, 020, 005,018,032,026,009,005,014,046,0 
32,080,018,015,002,005 
1570 data 

005,018,032,008,005,020,032,013,001, 001, 0 
18,255,005,162,005,005 
1580 data 

014,019,032,009,014,032,002,001,019,009,0 
03,032,015,006,032,013 
1590 data 

001,003,008,009,014,005,020,001,001,012,0 
44,032,004,001,014,032 
1600 data 

02 6,021,012,032,010,005,032,02 6,009,005,0 
14,032,004,001,020,032 
1610 data 

005, 018, 032, 014,009,005,020,019,032,019,0 
14,005,012,012,005,018 
1620 data 

032,009,019,032,004,001,014,255,005,242,0 
04,005,032,086,068,067 
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1630 data 

032,018,001,013,032,023,018,00 9, 020,005, 0 
18,046,255,255,000,086 
1640 data 

045, 032, 045,032,045,032,045,032,045,032,0 
45,032,045,032,045,032 
1650 data 

045,032,045,032,045,032,045,032,045,032,0 
45,032,045,032,045,032 
1660 data 

045,032,045,032,045,032,045,032,045, 032, 0 
45,032,045,032,045,032 
1670 data 

045,032,045,032,045,032,045, 032, 045, 032,0 
45,032,045,032,045,032 
1680 data 

045,032,045,255,255,001,068,102, 102,102,1 
02,102,102,032,032, 102 
1690 data 

102,102,102,102,102,032,032,102,102,102, 0 
32,032,102,102,102, 032 
1700 data 

102,102,102,032,032,102,102, 102, 032, 032,1 
02 , 102 , 102 , 102 , 102,102 
1710 data 

032,032,102,102,102,102,092,032, 032,032,1 
02 , 102 , 102 , 102 , 102,102 
1720 data 

032,102,102,102,102,102,032,032,032, 102, 1 
02,102,102,102,255,001 
1730 data 

148,102,102,032,032,032,032,032,032,102,1 
02,032,032,102,102, 032 
1740 data 

032,102,102,032,102,102,032,102,102,032, 1 
02,102,032,102,102,032 
1750 data 

102,102,032,032,102,102,032,032,102,102,0 
32,032,102,102,032,032 
1760 data 

102,102,032,032,102,102,032,032,102, 102, 0 
32,102,102,032,032,102 
1770 data 

102,032,032,102,102,255,001,228,102,102,O 
32,032,032,032,032,032 
1780 data 

102,102,032,032,102,102,032,032, 102,102,0 
32,102,102,032,102,102 
1790 data 

032,102,102,032,102,102,032,102,102,032,O 
32, 102,102,032,032,102 
1800 data 

102,032, 032, 102 , 102 , 032 , 032 , 032 , 102 , 102,0 EINDE listing demo Ramwriter 

32,102,102,032,032,102 
1810 dat a 

102, 032,102, 102, 102,102,102,102,032,032, 1 
02,102,102,102,255,002 
1820 data 

052, 102, 102,032,032,032,032,032,032, 102, 1 

02,032,032,102,102,032 5' \ 

1830 data ~.X] 

032,102,102,032,032,032,032,102,102,032,1 X/ /T 

02,102,032,032,032,032 :/ J 

1840 data j aSlf 

102,102,032,032,102,102,032,032,102,102,0 / /|jp i 

32,032,102,102,032,032 / Jgff f 

1850 data / mg f. 

102,102,032,032,102,102,032,032,102,102,0 ’ f.' 

32,102,102,032,102,092 V:'. 

1860 data WwffiOvWv-ffi 

032, 032, 032, 102, 102, 255, 002, 132, 102, 102, 1 XCCCCvCCC'V^ViV' 


02,102,102,102,032,032 
1870 data 

102,102,102,102,102,102,032, 032, 102,102,0 
32, 032,032,032,102,102 
1880 data 

032,102,102,032,032,032,032,102,102, 032, 0 
32,102,102,102,102, 102 
1890 data 

102,032,032,102,102,102,102,092,032,032,0 
32,102,102,102,102,102 
1900 data 

102,032,102,102,032,032,102,102,032,032,1 
02,102,102,102,102,255 
1910 data 

003,135,102,102,102,102,032,032,102,102,0 
32,032,032,102,102,032 
1920 data 

032,102,102,102,102,102,032,032,102,102,1 
02,102,102,102,255, 003 
1930 data 

216,102,102,032,032,032,102,102,102,032,0 
32,102,102,032,032,102 
1940 data 

102, 032, 032, 032,032,032,102,102,032,032,1 
02, 102,255,004,040,102 
1950 data 

102,032,032,032,102,102,032,102,032,102,1 
02,032,032,102,102,102 
1960 data 

0 92, 032, 032, 032, 102, 102, 032, 032,102,102,2 
55,004,120,102,102,032 
1970 data 

032,032,102, 102, 032, 032, 102, 102, 102, 032, 0 
32,102,102,032,032,032 
1980 data 

032, 032, 102,102,032, 032, 102, 102, 255, 004, 1 
99,102,102,102,102,032 
1990 data 

032, 102, 102,032,032,032,102,102,032,032,1 
02,102,032,032,032,032 
2000 data 

032,102,102,102,102,102,102,255,255,000,1 
83,068,005,032,019,021 
2010 data 

016,005,018,032,086,068,067,032,018,001,0 
13, 032, 023,018,009,020 
2020 data 

005,018,032,004,005,013,015,255,255,007,0 
00,074,015,008,001,014 
2030 data 

032,038,032,074,015,008,001,014,255,255 




PRINT OUT met o.a. Eurotopa 


Hires 128 


Met behulp van dit programma kunt U single color 
tekeningen maken. Natuurlijk alleen als U voorheen 
ook al een beetje kon tekenen.) U beweegt met de 
joystick, deze moet in poort twee zitten, het kruis dat 
de plaats van het volgende punt aanduidt. De kleuren 
zijn op de zelfde manier te wijzigen als bij basic. De 
maker van dit kleurige programma is Ivo Clarysse uit 
Waver Belgie. 

1 rem"HIRES[SPACE]128/1.Clarysse[SPA 

CE]015/75.68.96" 

10 fast:be=3583:fora=lto4:readco$:for 

b=lto64:be=be+l:readdd$:pokebe,dec 
(dd$):cc%=cc%+dec(dd$):nextb 
20 ifdec(co$)<>cc%thenf1=1:ww=a:a=4 

30 printhex$(cc%):cc%=0 

40 nexta 

50 iffl=lthenslow:print"fout[SPACE]in 

[SPACE]data,sprite[SPACE]: "ww;:sto 
P 

60 clr:colorO,1:color4,1:graphicO, 1 

70 sprite 2,1,6,0,0,0,1:sprite 3,1,6, 

0,0,0,1:sprcolor 6,3 

80 movespr 2,290,91: movespr 3,290,70 

90 sprite 4,1,16,0,1,0: movespr 4,40, 

70 

100 kl=l 

110 rem * startscherm * 

120 fast:print"[SHIFT-CLR][3xCRSR-DOWN 

][CTRL-8]"spc(16)"HIRES[SPACE]128" 

:printspc (15)"-":print" [ 

4xCRSR-DOWN][CTRL-N]" 

130 print"[4xSPACE]Met[SPACE]dit[SPACE 

]programma[SPACE]kan[SPACE]je[SPAC 
E]single":print"[4xSPACE]color[SPA 
CE]tekeningen[SPACE]maken[SPACE]." 

:print"[4xSPACE]U[SPACE]beweegt[SP 
ACE]met[SPACE]uw[SPACE]joystick[SP 
ACE](poort[SPACE]2)" 

140 print"[4xSPACE]het[SPACE]kruis[SPA 

CE]dat[SPACE]de[SPACE]plaats[SPACE 
]van[SPACE]het":print"[4xSPACE]vol 
gende[SPACE]punt[SPACE]aanduidt[SP 
ACE].":print"[4xSPACE]De[SPACE]kle 
uren[SPACE]kan[SPACE]men[SPACE]op[ 
SPACE]dezelfde" 

150 print"[4xSPACE]wijze[SPACE]wijzige 

n[SPACE]als[SPACE]in[SPACE]BASIC[S 
PACE].":print"[4xSPACE]Druk[SPACE] 
op[SPACE]'H'[SPACE]voor[SPACE]help 
[SPACE]informatie.":print"[4xSPACE 
]Dit[SPACE]programma[SPACE]is[SPAC 
E]gemaakt[SPACE]door" 

160 print"[3xSPACE]GDPIC[SPACE]softwar 

e":print"[3xSPACE]Oude[SPACE]bergs 
traat[SPACE]8":print"[3xSPACE]2860 
[SPACE]Oude[SPACE]Bergstraat[SPACE 
]8":print"[3xSPACE]BELGIE":print"[ 
3xSPACE]015/75.68.96":slow:getkeyy 
$ 

170 graphic 1,1:sprite2,0:sprite3,0:sp 

rite4,0:colorO,1:color4,1:colorl,6 
:x=0:y=0:spritel,1,16,0,0,0,0 
180 rem * hoofdroutine * 

190 movesprl,(x+14),y+40 

200 gett$:ift$<>""thengosub240 

210 if joy (2) OOthenj=joy (2) :gosub380 

220 gotol90 


rem ** letter invoer ** 

ift$="[SHIFT-CLR]"thenscnclr3:retu 

rn 

ift$="0"thenkl=0:return 
ift$="l"thenkl=l:return 
ift$="p"thenpaintkl,x,y:return 
ift$="h"thengosub480:return 
ift$="+"thenxx%=x:yy%=y:return 
ift$="-"thendrawkl,xx%,yy%tox, y:re 
turn 

ift$="r"thenboxkl,xx%,yy%,x,y:retu 
rn 

ift$="c"thencirclekl,xx%,yy%,abs(x 
x%-x),abs(xx%-x):return 
ift$="d"thengosub680:return 
printt$:colorkl,rclr(5):return 
rem ** joystick invoer ** 
f=0:ifj>127thenf=l:j=j-128 
ifj=lorj=8orj=2theny=y-l 
ifj=4orj=5orj=6theny=y+l 
ifj=6orj=7orj=8thenx=x-l 
ifj=2orj=3orj=4thenx=x+l 
ifx<0thenx=0:elseifx>319thenx=319 
ify<0theny=0:elseify>199theny=199 
iff=0thenreturn 
drawkl, x,y:return 
rem *** help *** 

graphicO:print"[SHIFT-CLR][CTRL-N] 

":spritel,0 

print"[2xSPACE]HIRES[SPACE]128[SPA 

CE]....[SPACE]help" 

print 

print"[2xSPACE]clr..wis[SPACE]het[ 
SPACE]scherm" 

print"[2xSPACE]0....werk[SPACE]met 
[SPACE]de[SPACE]achtergrondkleur" 
print"[2xSPACE]1....werk[SPACE]met 
[SPACE]de[SPACE]voorgrondkleur" 
print"[6xSPACE][COM-A]kies[SPACE]b 
eginpunt[SPACE]lijn" 
print"[2xSPACE]+...[COM-Q]kies[SPA 
CE]middelpunt[SPACE]cirkel" 
print"[6xSPACE][COM-Z]kies[SPACE]1 
inkerbovenhoek[SPACE]rechthoek" 
print"[2xSPACE]-....kies[SPACE]ein 
dpunt[SPACE]lijn" 

print"[2xSPACE]C....teken[SPACE]ee 
n[SPACE]cirkel” 

print"[2xSPACE]R....teken[SPACE]ee 
n[SPACE]rechthoek" 

print"[2xSPACE]P....vul[SPACE]een[ 
SPACE]vlak[SPACE]op" 

print"[2xSPACE]D....disketteoperat 

ies" 

print 

print"[SPACE][CTRL-9][SPACE]druk[S 
PACE]op[SPACE]een[SPACE]toets[SPAC 
E]om[SPACE]terug[SPACE]te[SPACE]ke 
ren[SPACE][CTRL-0]" 

getkeyy$:spritel,1:graphicl:return 
rem * disketteoperaties * 
graphicO:spritel,0:print"[SHIFT-CL 
R][CTRL-N][SPACE]HIRES[SPACE]128[S 
PACE]....[SPACE]disketteoperaties" 
print:print"[SPACE]1[SPACE]==>[SPA 
CE]directory":print"[SPACE]2[SPACE 
]==> [SPACE] lezen" .-print" [SPACE] 3 [S 
PACE]==>[SPACE]schrijven":print"[S 
PACE]4[SPACE]==>[SPACE]formatteren 


.vul[SPACE]een[ 


700 print"[SPACE]6[SPACE]==>[SPACE]ter 











print-out print-out print-out print-out print-out 


ug[SPACE]naar[SPACE]het[SPACE]werk 
scherm" 

710 print"[SPACE][CTRL-9][SPACE]geef[S 
PACE]uw[SPACE]keuze[SPACE]:[SPACE] 

.[2xSPACE] [CTRL-0] " 

720 windowO,24,39,24,1 

730 getkeyy$:w=val(y$):ifw<lorw>6then7 
30 

740 pokel322,176+w 

750 ifw=6thenspritel,1:graphicl:window 

0,0,39,24:return 

760 onwgosub790,820,910, 1020,1080 
770 pokel322,174:goto720 

780 rem * directory * 

790 windowO,9,39,23,1:catalog"dd*":ifd 
s>19thengosubll20 
800 return 
810 rem * lezen * 

820 input"bestandsnaam[SPACE]";l$:ifl$ 
=""thenreturn 
830 l$="dd"+left$(1$, 14) 

840 bload(l$),b0,p7168 

890 ifds>19thengosubll20:return:elsere 

turn 

900 rem * schrijven * 

910 input"bestandsnaam[SPACE]";l$:ifl$ 

=""thenreturn 
920 l$="dd"+left$(1$, 14) 

950 bsave(1$),b0,p7168topl6384 
990 ifds>19thengosubll20 
1000 return 
1010 rem * wissen * 

1020 input"bestandsnaam[SPACE]";1$:if1$ 
=""thenreturn 
1030 l$="dd”+left$(1$, 14) 

1040 scratch(1$) 

1050 ifds>19thengosubll20 
1060 return 

1070 rem * formatteren * 

1080 print"formatteren[SPACE]?";:getkey 
y$:ify$<>"j"thenreturn 
1090 header(chr$(34)+" [CTRL-0 ]gdpic[SPA 
CE]software"),igi 

1100 ifds>19thengosubll20:return:elsere 


turn 

1110 rem * disk foutmeldingen * 

1120 print"st:"st",ds:"ds$;:getkeyy$:re 
turn 

1130 data 0516 :rem * sprite 1 * 

1140 dataOO,00,00,00,20,00,00,20 
1150 dataOO,00,20,00,00,20,00,00 

1160 data20,00,00,20,00,00,20, 00 

1170 dataOO,20,00,00,20,00,ff,df 
1180 dataf8,00,20,00,00,20,00, 00 
1190 data20,00,00,20,00,00,20,00 
1200 dataOO,20,00,00,20,00,00,20 
1210 dataOO,00,20,00,00,00,00,00 
1220 data 189f :rem * sprite 2 * 

1230 datafe,aa,a0,fe,aa,a0,3e,aa 
1240 dataa8,3f,aa,a0,3f,aa,a8,Of 
1250 dataaa,a8,Of,aa,a8,Of, ea, a8 
1260 data03,ea,aa,03,ea,a8,00,ea 
1270 dataaa,00,ea,a8,00,2a,aa,00 
1280 data2a,a8,00,0a,aa,00,02,aa 
1290 dataOO,00,a2,00,00,a2,00,00 
1300 data22,00,00,22,00,00,22, 00 
1310 data 2214 :rem * sprite 3 * 

1320 dataOa,a0,00,2a,a8,00,20,aa 
1330 dataOO,8c,2a,00,f0,2a,00,c0 
1340 dataOa,80,c0,2a,80,c0,aa,80 
1350 data02,aa,80,2a,aa,a0,3a,aa 
1360 dataaO, 3a,aa,a0,3a,aa,a0,fa 
1370 dataaa,a0,fa,aa,a0,fa,aa,a0 
1380 datafe, aa, a0, fe, aa, a0, fe, aa 
1390 dataaO, fe, aa, a0, fe, aa, a0,00 
1400 data 1217 :rem * sprite 4 * 

1410 data29,28,00,2b,b8,00,12,a8 
1420 dataOO,00,00,00,6c,c9,00,8a 
1430 dataaa, 00, aa, ca, 00, aa, 8a, 00 
1440 data4c,89,00,00,00,00,52,27 
1450 dataOO,55,56,00,22,25,00,00 
1460 dataOO, 00, 92, 73, 80,9a, 46, 70 
1470 data96,44,60,92,64,00,92,44 
1480 data60,92,46, 70, 92,43, 80, 00 
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Topografiespel voor 128 


Deze keer een inzendster we krijgen natuurlijk wel 
eens meer inzendingen van dames maar of er wordt 
alleen een voorletter vermeld en dan kunnen we na¬ 
tuurlijk niet zien dat het een vrouwelijke inzender is. 
Hier was het echter wel duidelijk de schrijf(ster) van 
dit programma is Marian van Hal Kouwenberg. uit 
Drunen. Topografie van europa op je computer. Leer¬ 
zaam en leuk. 

10 rem ****************************** 

*** 

20 rem ** 

** 

30 rem ******* eurotopa ****** 

★ ** 

40 rem ** 

** 

50 rem ******* commodore 128 ****** 

*** 

60 rem ** 

★ * 

70 rem ******* marian van hal ****** 

*** 

80 rem ** 

** 

90 rem ******* drunen 1 9 8 7 ****** 

kific 

100 rem** 

** 

110 rem******************************* 

* * 

120 color 0,l:color 4,1:scnclr:for xx= 

1 to 23: print:next xx 
130 print"[CTRL-8][4xCOM-+][SPACE][COM 
+ ] [2xSPACE] [COM—h] [SPACE] [4xCOM-+ 

][2xSPACE][2xCOM-+][2xSPACE][5xCOM 
+][2xSPACE][2xCOM-+][2xSPACE][4xC 
OM +][2xSPACE][2xCOM-+]sleep l:p 
rint"[COM-+][4xSPACE][COM-+][2xSPA 
CE][COM-+][SPACE][COM-+][2xSPACE][ 

COM—h ] [SPACE] [COM-+] [2xSPACE] [COM- 
+ ] [3xSPACE] [COM—h] [3xSPACE] [COM-+] 
[2xSPACE] [COM-+] [SPACE] [COM—1-] [2xS 
PACE][COM-+][SPACE][COM-+][2xSPACE 
][COM-+]sleep 1:print"[COM-+][4x 


SPACE][COM-+][2xSPACE][COM-+][SPAC 
E][COM-+][2xSPACE][COM-+][SPACE][C 
OM +][2xSPACE][COM-+][3xSPACE][COM 
+][3xSPACE][COM-+][2xSPACE][COM-+ 
] [SPACE] [COM—h] [2xSPACE] [COM-+] [SP 
ACE][COM-+][2xSPACE][COM-+]" 

140 sleep 1:print"[3xCOM-+][2xSPACE][C 
OM +][2xSPACE][COM-+][SPACE][4xCOM 
+][SPACE][COM-+][2xSPACE][COM-+][ 
3xSPACE][COM-+][3xSPACE][COM-+][2x 
SPACE][COM-+][SPACE][4xCOM-+][SPAC 
E][COM-+][2xSPACE][COM-+]":sleep 1 
:print"[COM-+][4xSPACE][COM-+][2xS 
PACE][COM-+][SPACE][2xCOM-+][3xSPA 
CE][COM-+][2xSPACE][COM-+][3xSPACE 
][COM-+][3xSPACE][COM-+][2xSPACE][ 
COM-+] [SPACE] [COM—h] [4xSPACE] [4xCO 
M +]":sleep 1:print"[COM-+][4xSPAC 
E][COM-+][2xSPACE][COM-+][SPACE][C 
OM +][SPACE][COM-+][2xSPACE][COM-+ 
][2xSPACE][COM-+][3xSPACE][COM-+][ 
3xSPACE] [COM—h] [2xSPACE] [COM-+] [SP 
ACE][COM-+][4xSPACE][COM-+][2xSPAC 
E] [COM—1-] " 

150 sleep l:print "[4xCOM-+][2xSPACE][ 
3xCOM-+][SPACE][COM-+][2xSPACE][CO 
M +][2xSPACE][2xCOM-+][4xSPACE][CO 
M + ][4xSPACE][2xCOM-+][2xSPACE][CO 
M +][4xSPACE][COM-+][2xSPACE][COM- 
+ ]" 

160 for xx=l to 6: print"[CRSR-DOWN]"; 

:sleep l:next xx:print"[3xCRSR-RIG 
HT]een[SPACE]topografiespel":sleep 
1 

170 for xx=l to 4: print"[CRSR-DOWN][4 
xCRSR-RIGHT]sleep 1: next xx:pr 
inf'van":sleep 1 

180 for xx— 1 to 4:print"[CRSR-DOWN][5 
xCRSR-RIGHT]sleep l:next xx:pri 
nt"marian[SPACE]van[SPACE]hal 

190 sleep 6 

200 for xx=l to 23: print : next xx 

210 print"j e[SPACE]komt[SPACE]met[SPAC 

E]een[SPACE]ruimteschip[SPACE]van[ 
SPACE]mars[SPACE]en[SPACE]moet[SPA 
CE]europa[SPACE]verkennen.[SPACE]h 
elaas[SPACE]weet[SPACE]je[4xSPACE] 
niet[SPACE]waar[SPACE]alles[SPACE] 
ligt." 

220 print"[CRSR-DOWN]je[SPACE]bestuurt 
[SPACE]je[SPACE]ruimteschip[SPACE] 
met[SPACE]de[SPACE]joy-[2xSPACE]st 
ick;[SPACE]als[SPACE]je[SPACE]denk 
t[SPACE]dat[SPACE]j e[SPACE]boven[S 
PACE]de[5xSPACE]juiste[SPACE]plaat 
s[SPACE]gearriveerd[SPACE]bent[SPA 
CE]kun[SPACE]j e[3xSPACE]landen[SPA 
CE]d.m.v.[SPACE]de[SPACE]vuurknop. 

ff 

230 print"[CRSR-DOWN]na[SPACE]de[SPACE 
]landing[SPACE]krijg[SPACE]je[SPAC 
E]een[SPACE]nieuwe[7xSPACE]opdrach 
t;[SPACE]stijg[SPACE]op[SPACE]en[S 
PACE]voer[SPACE]dezelfde[SPACE]ma- 
[SPACE]noeuvres[SPACE]uit.[SPACE]a 
ls[SPACE]je[SPACE]10[SPACE]keer[SP 
ACE]goed[SPACE]gelandbent[SPACE]kr 
ijg[SPACE]je[SPACE]een[SPACE]bonus 

240 print"[SPACE]en[SPACE]kun[SPACE]j e 

[SPACE]weer[2xSPACE]kiezen[SPACE]u 
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it[SPACE]de[SPACE]diverse[SPACE]mo 
gelijkheden." 

250 print"[CRSR-DOWN]j e[SPACE]kunt[SPA 

CE]stoppen[SPACE]door[SPACE]op[SPA 
CE]run-stop/restorete[SPACE]drukke 
n. " 

260 print"joystick[SPACE]in[SPACE]poor 
t[SPACE]2:[SPACE]start[SPACE]d.m.v 
.[SPACE]vuur-[SPACE]knop" 

270 if joy(2)<128then 270 
280 color 0,4:color 4,4:color 1,4:grap 
hiel,1 

289 rem 

290 rem **** sprites ontwerpen **** 

291 rem 

300 circlel,12,10,6,2,,,340:circlel, 11 
,8,3,3,230,50,20:paint 1,12,10:dra 
w0,9,11 :draw0, 12,10 :draw0, 15,9 
310 shape a$,1,1,24,21 
320 sprsave a$,1:graphicl, 1 
330 circle 1,3,3,1,1:paint 1,3,3 
340 shape b$,1,1,24,21 

350 sprsave b$,2:sprsave2,3:sprsave 3, 

4:sprsave4,5:sprsave5,6:sprsave6, 7 
:sprsave7,8 

359 rem 

360 rem **** europa tekenen **** 

361 rem 

370 graphic 1,1:color 0,4:color 4,7:co 
lor 1,7 

380 draw 1,188,30tol88,40to240,40to 24 
0,88 to 232,92 to 228,96 to 228,10 
4 to 224,104 to 224,108 to 240,112 
to 240,186 

390 drawl,111,190tol02, 190tolll, 198tol 
11,190:drawl,88,184to88,174to94,17 
4to90,182to88,184:drawl,92,172to94 
,164to90,166to90,172to92,172:rem** 
eil.midd.zee**** 

400 draw l,36,0to 48,0to 48,4 to 56, 

4 to56,8 to 60,8 to 60,12 to 56,12 
to 56,16 to 40,16 to 40,12 to 36, 
12 to 36,0 

410 draw 1,136,2tol44,2tol44,0tol56,0t 
ol56,4tol60,4tol60,2tol68,2tol68,4 
tol74,4tol84,4tol84,8tol92,8tol92, 
12tol96,12tol96,16tol92,16tol92,20 
tol84,20tol84, 16 

420 drawl,184,16tol76,16tol84,24tol84, 
32tol88,32tol88,28tol96,28tol96,24 
tol98,24tol98,16to204,16to204,12to 
200,12to200,8tol98,8tol98,0to204,0 
to204,8to210,8 

430 drawl,210,8to210,0to240,0 
440 drawl,136,2tol36,8tol32,8tol32, 12t 
ol28,12tol28,16tol20,24toll2,32tol 
12,36tol08,36tol08,40tol04,40to96, 
48to96,60to92,60to92,64to96,64to96 
,68tol08,68tol08,64 

450 drawl,108,64toll2,64toll2,80tol20, 
80tol20,88tol24,88tol24,84tol28,84 
tol28,72tol36,64tol32,64tol32,48to 
128,48tol44,32tol44,26tol52,26tol5 
2,32tol44,40 

460 draw 1,144,40tol43,40tol43,56tol44 
,56tol44,59tol60,59tol60,56tol68,5 
6tol68,62tol60,62tol60, 64tol51, 64t 
0151,72tol44,72tol44,76tol48,76tol 
48,80tol43,80 

draw 1,143,80tol43,88tol44,88tol36 
,96tol36,93tol28,93tol28,96toll6,9 


6toll6,92toll2,92toll2,93tol04,93t 
ol04,84tol07,84tol07,88toll0,88tol 
10,84tol08,80 

480 drawl,108,80tol08,72tol04,72tol04, 

76tol00,76tol00,80to98,80to98, 88to 
100,88tol00,96to88,96to80,104to80, 
105to72,105to72,108to64,108to64,11 
2to60,112to60,108 

490 drawl,60,108to56,108to56,114to48,1 
14to48,112to44,112to44,116to48,116 
to48,120 

500 drawl,48,120to52,120to52, 136to50, 1 
36to50,144to40,144to40,140to32, 140 
to32,138to24,138to24,136tol6,136to 
16,144tol5,144tol5,152tol6,152to8, 
160to8,170tol6,170 

510 drawl,16,170tol6,178to24,178to24, 1 
76to32,176to32,178to40,178to40,176 
to44,176to44,174to48,174to48,168to 
52,168to52,164to56,164to56,162to64 
,162to64,160 

520 drawl,64,160to66,160to66,152to80,1 
52to80,155to88,155to88,152tol00, 15 
2tol00,164tol04,164tol04,168tol08, 
168tol08,172toll6,172toll6, 180tol2 
0,180tol20,184 

530 drawl,120,184toll4,190toll7,193tol 
23,187tol23,180tol26,180tol26,182t 
ol28,182tol28,174tol24,174tol22, 17 
2tol22,168toll4,160toll4,156toll0, 
156toll0,148 

540 drawl,110,148toll4,148toll4,155tol 
22,155tol22,160tol28,160tol28,164t 
ol32,164tol32,168tol36,168tol36,17 
6tol39,176tol39,184tol40, 184tol40, 
188tol44,188 

550 drawl,144,188tol44,192tol52,192tol 
52,196tol60,196tol52,188tol52,184t 
0156,184tol56,176tol64,176tol64,17 
8tol72,178tol72,174tol70,174tol70, 
166tol68,166 

560 drawl,168,166tol68,162tol72,162tol 
72,154tol76,154tol76,146tol84,146t 
0184,150tol88,150tol88,154tol92,15 
4tol92,150tol96,150tol96,146to200, 
146to200,150 

570 drawl,200,150to216,156to224,156to2 
24,168to220,168to220,172to200,172t 
o200,168tol92,168tol92,164tol80, 16 
4tol80,176tol76,176tol76,180tol70, 
180tol70,184 

580 drawl,170,184tol66,184tol66,192tol 
70,192tol70,196tol74,196tol74,199t 
o200,199to200,196to208,196to208,19 
2to216,192to216,190to224,190to224, 
186to240,186 

590 drawl,64,100to68,100to68,96to72,96 

to72,88to68,88to68,76to66,76to66,6 
8to64,68to72,60to64,60to64, 56to68, 
56to68,52to64,52to56,60to52,60to52 
,64to56,64to56,72 

600 drawl,56,72to60,72to60, 84to52,84to 
52,88to48,88to48,94to44,94to44,98t 
o56,98to56,96to64,96to64,100:draw 
1,56,72 to 66,68 

610 drawl,52,68to52,76to48, 76to48,84to 
40,84to40,86to32,86to32, 80to36, 80t 
o36,72to44,72to44,68to52,68:drawl, 
44,72to48,76 

drawl,240,40to240,199:color 1,7:pa 
intl, 6,6:paintl,190,22:paint 1,112 


470 
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,150:paint 1,206,2:paintl,238,90:p 

aint 1,238,190 

rem 

rem***** landen intekenen **** 
rem 

drawl,112,65toll6,55toll6, 43tol22, 
40tol22,32tol34,20tol42,12tol46, 12 
tol46,0:rem noorwegen********* 
drawl,146,0tol50,12tol50,26:rem*** 
*zweden**** 

drawl,164,56tol72,46tol72,36tol64, 
18tol64,8tol60,4:rem****finland 
drawl,166,62tol62,68tol62,74tol52, 
72:drawl,162,74tol70,82tol64,94tol 
58,98tol42,92:rem **** baltische s 
taten **** 

drawl,158,98tol58,104tol62,112tol5 
4,120tol40,120tol40,116tol28,116to 
120,108toll6,96:rem **** polen *** 
★ 

drawl,120,108tol05,112 tol05,108to 
100,106tol08,94 rdrawl,108,llltoll5 
,124toll2,128toll2,130tol00,130to8 
8,126to92,120to88,110to94,96:rem** 
**o+w-duitsland**** 
drawl,88,110to84,110to86,106to82,1 
02:rem****nederland**** 
drawl,76,106to78,112to88,114:drawl 
,84,110to84,113:rem **** belg/lux 
★ * ★ ★ 

drawl,88,126to84,126to84,140to82,1 
44to86,152:drawl,66,152to50,144:re 
m **** frankrijk/spanje**** 
draw 1,16,144to24,146tol6,170:rem* 
*** portugal **** 

drawl,84,140tol00,136tol06,136toll 
2,142toll2,148:drawl,112,142tol26, 
142tol30,136tol30,126tol22,122toll 
5,124:rem**** italie/zwitserl. *** 
* 

drawl,126,142tol32,146tol42,144tol 
48,150tol52,150tol52,170tol44,170t 
ol40,164tol36,168:drawl,145,170tol 
40,180:rem **** joegoslavie/albani 
e 

drawl,152,170tol64,169tol64,176:dr 
awl,152,160tol66,156tol72,160:draw 



1,164,172tol70,172 :rem **** gr 

iekenl/bulg **** 

760 drawl,130,132tol54,132tol54, 120 :dr 
awl,154,132tol66,132tol70,128tol70 
,146tol80,146:drawl,142,144tol56,1 
32:rem **** rest **** 

770 drawl,100,90tol04,90:rem**** denem 
arken **** 

780 drawl,100,130tol00,136 

789 rem 

790 rem***** keuzeroutine *********** 

791 rem 

800 al$="je[SPACE]kunt":a2$="kiezen":a 

3$="uita4$="[C0M-+]landen":a 
5$="[C0M-+]plaatsen":a6$="[C0M-+]s 
treken+":a7$="zeeen":a8$="kies[SPA 
CE]met":a9$="joystick":bl$="en":b2 
$="vuurknop" 

810 char 1,31,2,al$:charl,31,3,a2$:cha 
r 1,31, 4, a3$:charl,31,6,a4$:char 1 
,31,8,a5$:char 1,31,10,a6$:char 1, 
31,11,a7$ 

820 char 1,31,14,a8$:char l,31,15,a9$: 

char 1,31,16,bl$:char l,31,17,b2$ 
830 if z1—1 then zl=0 :b3$="[9xSPACE]": 
for i=ltol7:charl,31,i,b3$:next i: 
sprite2,0:restore v:goto 910 
840 sprite 2,1,1,0,1,1:x=270:y=150:mov 
espr2,x,y 

850 if joy(2)=ltheny=y-l 

860 ifjoy(2)=5 theny=y+l 

870 if joy(2)=>128 and y>95andy<99then 
z=32:zl=l:v=1000:goto 830 
880 if joy(2)=>128 and y>lllandy<115th 
en z=30:zl=l:v=1050:goto 830 
890 if joy(2)=>128 and y>127andy<131 t 
hen z=26:zl=l:v=1100:goto 830 
900 movespr2,x,y:goto 850 

907 rem 

908 rem **** kaart intekenen ***** 

909 rem 

910 color 1,1:if z=26 or z=32 then q=l 
:else q=0 

920 sprite 1, 1,8, 0,0,0,0:movesprl,40,5 
0 

930 char 1,25,2,"[15xSPACE]" 

940 sprite 2,1,1,0,q,q,0:sprite 3,1,1, 

0 - q, q< 0 •• sprite4, 1, 1, 0, q, q, 0 : sprite 
5,l,l,0,q,q,0:spriteö,1,1, 0, q, q, 0 
:sprite 7,1,1,0,q,q,0:sprite 8,1,1 
, 0, q, q, 0 

950 fast:sound 2,20000,160,2,2000,100: 
k=int(rnd(l)*7)+1:for h=2 to 8:j=i 
nt(rnd(1)*z)+1:for i=ltoz:read f, g 
,1$:ifh=k+land j=i then ll$=l$:pl= 
f:p2=g 

960 if j=i then movesprh,f,g 
970 next i:restorev :next h:slow 
980 char 1,31,20,”[6xSPACE]" 

990 le=len(11$):if le>9 then char 1,31 
- (le-9),2,11$:else char 1,31,2,11$ 
1000 rem* *plaat sbepalingen*landen* * * * * * 

* 

1010 data 66,54,ijsland,84,129,engeland 
,62,124,ierland,33,204,portugal, 57 
,204,spanje,88,183,frankrijk,106,1 
58,luxemburg,100,155, belgie,107, 14 
7,nederland 

1020 data 116,159,w-duitsland, 131, 147, o 
-duitsland,122,126,denemarken,127, 
92,noorwegen,142,101,zweden,176,91 
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,finland,223,123, rusland, 175, 113, e 
stland 

1030 data 175,122,letland,175,134,litou 
wen,157,152,polen,140,163,t-slowak 
ije,140,181,Oostenrijk,113,179,zwi 
tserland,123,195,italie,153,201,jo 
egoslavie 

1040 data 160, 217, albanie,168,225,griek 
enland,207,225,turkije,180,210,bul 
garije, 180,189,roemenie,157,184,ho 
ngarije,83,110,schotland 

1050 rem **** pl. bep. steden ********* 

1060 data61,59,reykjavik,71,119,belfast 
,68,127,dublin,89,141, londen, 33, 20 
9,lissabon,57,207,madrid,91,166,pa 
rijs,103,155,brussel,110,148,amste 
rdam 

1070 data 109,160,luxemburg,132,109,osl 
o,153,115,Stockholm,174,105, helsin 
ki, 131, 132,kopenhagen,134,148,berl 
ijn,115,159,bonn,112,180,bern,133, 
217,rome 

1080 data 173,237,athene,192,224,istanb 
oei,164,200,belgrado,161,219,tiran 
a, 179,212, sofia,187,199,boekarest, 
160,184,boedapest,147,176,wenen,13 
_ 9,162,praag 

I 1090 data 168,155,warschau,214,130,mosk 
ou,80,113,glasgow 

1100 rem **** pl. bep. streken/zeeen*** 

1110 data 212,69,barentszee,169,50,noor 
dkaap,166,56,lapland,38,100,atl.oc 
eaan,102,131,noordzee,90,149,het k 
anaal,79,158,normandie,69,161,bret 
agne 

1120 data 60,176,golf v.biskaje,76,195, 
pyreneeen,40,222,gibraltar, 97,222, 
middellandse z.,146,212,adriatisch 
e zee,152,236,Ionische zee,111,214 


,corsica 

1130 data 128,238,sicilie,182,230,egeis 
che zee,218,203,zwarte zee,193,226 
,bosporus,254,147,kaspische zee,12 
6,116,skagerrak,132,122,kattegat,1 
55,128,oostzee 

1140 data 157,95,botnische golf,175,112 
,finse golf,109,223,sardinie 

1147 rem 

1148 rem ***** joystick besturing *** 
114 9 rem 

1150 sleep 1:sound2,20000,100,0,2000,10 
0 

1160 if joy(2)=0then b=0:else b=l 
1170 if joy(2)=l then a=0 
1180 if joy(2)=2 then a=45 
1190 if joy(2)=3 then a=90 
1200 if joy(2)=4 then a=135 
1210 if joy(2)=5 then a=180 
1220 if joy(2)=6 then a=225 
1230 if joy (2)=7 then a=270 
1240 if joy (2)=8 then a=315 
1250 if joy (2)=>128thenge=l:c=rsppos(1, 
0):d=rsppos(1,1):goto 1280 
1260 if joy (2) OOthen sound 3, 6000,1 
1270 movesprl,a#b:goto 1160 
1280 ifc>pl+10orc<pl-10then goto 1310:e 
lsel290 

1290 if d>p2+10ord<p2-10then goto 1310 
:else p=p+l:pp=pp+l:p$=str$(pp):ch 
ar 1,33,23,p$ 

1300 if p=10then p=0:pp=pp+5:p$=str$(p 
p):charl,33,23,p$:goto 800:else go 
to 930 

1310 char 1,31,20,"fout":sleep 2:goto 9 
30 
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regel 789 

143 

regel 

1040 

122 

regel 

1310 

177 

regel 

270 

107 

regel 530 

190 

regel 790 

217 

regel 

1050 

67 




regel 

280 

132 

regel 540 

227 

regel 791 

143 

regel 

1060 

15 




regel 

289 

143 

regel 550 

26 

regel 800 

21 

regel 

1070 

34 




regel 

290 

203 

regel 560 

245 

regel 810 

36 

regel 

1080 

202 
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Amiga hoek 


Commodore heeft ontdekt, dat de Amiga heel goed te gebruiken is als produktiesys- 
teem voor televisiestations. Vooral bij kleinere organisaties kan men er effectief onder¬ 
titeling, kaarten en graphics mee maken en met live beelden mengen. 


Amiga te huur... 

...als televisiestudio 


D e Sport marketing afdeling van Commodore Europa in Frankfurt pro¬ 
beert op dit moment aan de diverse omroeporganisaties een complete 
produktieploeg, compleet met Amiga’s, snijapparatuur, en andere video- 
spullen te slijten voor 12.000 DM per dag. Men heeft er zelfs een speciale 
Amiga tele Mobiel voor gemaakt, een hele truck met spullen. 


Amiga Tele-Vision 

Met dit motto gaat men nu vooral de 
sportclubs interesseren in het maken 
van video-verslagen van hun wedstrij¬ 
den. Die kan men dan weer doorver¬ 
kopen aan de omroepen, of ook voor 
eigen publiek nog eens gebruiken, er 
banden van verkopen en dergelijke. 
Om daar allemaal een exclusieve 
touch aan te geven, worden de Ami¬ 
ga’s dan gebruikt om extra dingen te 
doen. 

Golf 

Een goed voorbeeld is een golfwed- 
strijd. het is vrij moeilijk om de infor¬ 
matie over wat er op de verschillende 
holes gebeurt, goed aan de kijker over 
te brengen. Met behulp van geteken¬ 
de kaartjes en grafische informatie 
over de stand kan dat veel duidelijker 
worden. De Amiga wordt in zo’n geval 
gebruikt om al die extra te maken en 
in beeld te krijgen via de Genlock 
techniek. 



fLrnïiMMüiéV&msm 
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Multi-media 

Commodore probeert haar multime¬ 
dia mobiel te verhuren voor dergelijke 
evenementen. Men heeft in het verle¬ 
den door de eigen sponsoring van bij¬ 
voorbeeld voetbalteams veel ervaring 
opgedaan en dat wordt nu goed be¬ 
nut. Er is in Frankfurt zelfs een specia¬ 
le sport-marketing divisie voor opge¬ 
richt. Men verwacht erg veel van deze 
sector, getuige de promotiefolder, die 
men bij onze oosterburen uitgebracht 
heeft. 

Toekomst 

Toch is het niet de bedoeling, dat de 
Truck uitsluitend bij sportevenemen¬ 
ten wordt ingezet. Op langere termijn 


verwacht het concern, dat ook andere 
organisatoren van de mogelijkheden 
gebruik zullen maken. Tijdens eenma¬ 
lige bijzondere gebeurtenissen, die 
live worden uitgezonden kan de bus 
uitstekende diensten bewijzen. Te 
denken valt aan popfestivals, shows 
en demonstraties. Maar er kunnen te¬ 
gen een relatief lage kostprijs ook vi¬ 
deofilms vervaardigd worden van be¬ 
drijven of produkten, die door eenvou¬ 
dige montagemogelijkheden voorzien 
kunnen worden van grafieken, data of 
andere informatie. 

Wie nadere informatiewil, kan zich 
wenden tot H. Hocke, int. Sports Pro¬ 
motion; Commodore Electronics Ltd. 
(Duitsland). Tel.: 069-66 38-175 
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De taal C wordt vaak gezien als de programmeertaal van de toekomst, maar het is ei¬ 
genlijk al weer een programmeertaal uit het verleden. Wat het ook zal zijn, voor de 
Commodore Amiga is het DE taal om mee te werken. Wij zullen in deze cursus probe¬ 
ren ook de BASIC programmeur een C-kans op de Amiga te geven. Veel geduld en 
een goede C-compiler zult u zondermeer moeten hebben 

De oorsprong van C 


Amiga C cursus, deel 1 


Z oals de kop al deed vermoeden, bestaat de taal C al weer geruime tijd. De 
wortels van C liggen ergens in de late jaren ’60. In 1967 werd een taal ont¬ 
wikkeld die BCPL was genaamd. Dit was eigenlijk de grootvader van C want 
uit BCPL werd de taal B ontwikkeld. 


Met B en Assembler zou door Ken 
Thompson het Unix bedrijfssysteem 
ontwikkeld worden, echter B had nog 
enige tekortkomingen dus moest er 
een alternatief komen. Dit werd gebo¬ 
den door Dennis Ritchie. Ritchie had 
een taal ontworpen op een PDP-11 in 
1972. Voor alle duidelijkheid, de PDP- 
11 is een computer. Er bestonden 
toen nog geen computers met een 
naam als Amiga. Nu weer even terug 
waar we waren gebleven, de taal die 
Ritchie had ontworpen was C. Met C 
werd toen het UNIX1 besturingssys¬ 
teem ontwikkeld. Overigens, voor die¬ 
genen die het nog niet wisten, ook de 
eerste versie van het Amiga bestu¬ 
ringssysteem werd met de taal C ge¬ 
schreven. In 1978 werd de definitie 
van C opgesteld in de appendix ‘C re- 
ference manual’, van het boek The C 
programming Language-Reference 
Manual’. De recente standaard werd 
in juni 1983 opgesteld door Dennis 
Ritchie. Tot zover deze historische in¬ 
leiding. 

Ferrari tegen Mercedes 

Waarom C zult u zich afvragen. BA¬ 
SIC is toch ook goed genoeg? Dat zul¬ 
len wij niet ontkennen, maar stelt u 
zich eens voor. U rijdt op de snelweg 
in uw net aangekochte Mercedes 500 
SEC. U ziet de snelheidsmeter voor u 
gestaag klimmen naar 200 km/p uur. 
(Oeps, sorry minister Korthals-Altes) 
U kijkt argeloos in uw achteruitkijk¬ 
spiegel. Ahhh, denkt u, niets geen ver¬ 
keer op de weg, lekker rustig. U start 
de nieuwste CD van Matt Bianco. 
Hmm, heerlijk, u draait de volume 
knop op 10. Blik op oneindig, oren in 
de speakers en het verstand op 


chine code en vervolgens gelinked zo¬ 
dat u de programma’s vanuit DOS op 
kunt starten. Zo, om nu de vervente 
BASIC programmeurs onder ons toch 
nog een kans te geven over te stap¬ 
pen naar het kamp van de moedigen, 
gaan we als volgt te werk. We begin¬ 
nen met een serie basis keywords zo¬ 
wel in BASIC als in C uit te leggen zo¬ 
dat u niet onmiddelijk een geheel an¬ 
dere programmeer gedachtenwijze 
aan hoeft te leren. IJ zult echter na 
verloop van tijd merken dat dat wel no¬ 
dig zal zijn maar zover zijn we nu nog 
niet. 

BASIC 

We beginnen eenvoudig. U zult het 
zich ongetwijfeld nog wel herinneren. 
Eén van de eerste dingen die waar¬ 
schijnlijk ingetypt heeft is; PRINT 


NULL. Even denkt u nog, wat een 
vreemde storing, is m’n CD-speler 
soms naar de kloten. VRRRRAAAOE- 
EEEMMMMM. Jaagt daar me toch 
even een Ferrari Testarossa voorbij. 
Dit is zo’n beetje een grove aandui¬ 
ding van het snelheidsverschil tussen 
C en BASIC. 


Na BASIC komt C 


BASIC met al z’n degelijkheid is een 
zeer mooie taal om in te programme¬ 
ren, maar voor diegenen onder ons 
die toch net dat beetje lef en moed 
hebben is de taal C bedoelt. C heeft 
minder gereserveerde sleutelwoor¬ 
den dan menig andere taal. Ze werkt 
veelvuldig met pointers, libraries, etc. 
En nog last but zeker niet the least, C 
is een echte compiler taal. Dat wil zeg¬ 
gen, de programma’s die u zelf schrijft 
moeten gecompiled worden naar ma¬ 
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"Mijn naam is." Dit zullen we in C 

ook proberen. 

main() 

{ 

printf("Mijn naam is.\n"); 

} 

Op de plaats van de punten (....) kunt 
u uw eigen naam invullen. Op het eer¬ 
ste gezicht lijkt het wel wat ingewikkel¬ 
der dan een simpele PRINT opdracht, 
echter de eigenlijke printopdracht is 
PRINTF(). Waarom dan dat MAIN() 
ervoor. Wel, in de taal C bestaat een 
programma uit: 

0 definities van variabelen, constan¬ 
ten, structures. 

° een aantal functies waarin het ei¬ 
genlijke programma is verwerkt. 

0 zogenaamde preprocessor facilitei¬ 
ten die niet in het eigenlijke pro¬ 
gramma worden gebruikt, maar 
voor de compiler van belang zijn. 
Dus, u raadt het mischien al, 

MAIN() is de functie waarin het 
hoofdprogramma is verwerkt. 

Een C programma heeft altijd 
een MAINQ functie nodig. Ver¬ 
volgens zijn er dan de accola¬ 
des {en}. Ze dienen om aan te 
geven waar een functie-blok of 
een compound statement be¬ 
gint en eindigt. Een compound 
statement is een blok van op¬ 
drachten die uitgevoerd wordt 
als de conditie, die er voor 
staat, waar is. Bijvoorbeeld een 
‘IF’ opdracht. Tenslotte is er 
dan nog de PRINTF() functie in 
het programmavoorbeeld op¬ 
genomen. PRINTFO voert de in de 
string staande tekens uit naar het 
beeldscherm. In deze string mogen 
een aantal stuurcodes staan. In BA¬ 
SIC kunnen we dit vergelijken met de 
CTRL-codes. Nog even terug naar het 
voorbeeld. In de PRINTF() functie 
staat ‘\n’. In BASIC geschreven zou 
de opdracht luiden: PRINT "Mijn 
naam is ,"+CHR$(10) 

Dit is echter niet nodig want BASIC 
zet automatisch al een Newline achter 
de PRINT opdracht. In C gebeurt dit 
niet als u dit niet vermeldt. Hiervoor 
zijn meerdere stuurcodes ontwikkeld. 
Voor de volledigheid noemen we ze 
even op. 


Nul 1 

\0 

CHR$(0) 

Backspace 

\b 

CHR$(8) 

Tab 

\t 

CHR$(9) 

Newline 

\n 

CHR$(10) 

Formfeed 

Yf 

CHR$(12) 

Carriage Return 

\r 

CHR$(13) 


Doublé Quote \" CHR$(34) 

Single Quote V CHR$(39) 

Backslash V CHR$(92) 

U mag de codes ook opgeven als een 
1, 2 of 3-cijferige octale code. Octale 
code is het cijferstelsel dat opge¬ 
bouwd is rond het cijfer 8. Neem bij¬ 
voorbeeld het cijfer 7. Hexadecimaal 
is dat 0x7 en octaal is dit 7. Bij 8 ver¬ 
andert er iets. Hexadecimaal blijft nog 
hetzelfde als decimaal 0x8, echter oc¬ 
taal wordt 10. Stel dat u dan een 
Newline op wilt geven als 3-cijferige 
octale code, dan dient u in te typen, 
‘\012’ immers 8 decimaal is 10 octaal, 
9 is 11 en 10 is 12 octaal. Als laatste 
dan nog de achter de PRINTF() 
functie. Dit teken dient voor de compi¬ 
ler als einde statement opdracht. Zou 
u dit vergeten, dan zou de compiler 
niet doorhebben dat de opdracht afge¬ 
lopen is. Het is namelijk mogelijk het 
programma te schrijven als een lees- 



bare tekst. Een commando kan dan 
opgesplitst worden in 2 delen waar¬ 
door het geheel beter leesbaar wordt. 


C en variabelen 

BASIC maakt het u wat betreft het ge¬ 
bruik maken van variabelen wel heel 
erg gemakkelijk. Gewoon in het pro¬ 
gramma gebruiken is al voldoende. 
Helaas, dit grapje gaat echt niet op in 
C. U zult netjes voor het begin van het 
programma de computer moeten ver¬ 
tellen wat voor variabelen u wilt ge¬ 
bruiken zodat hiervoor ruimte in het 
geheugen vrijgemaakt kan worden. 
Nu komen we een beetje op glad ijs 
aangaande de verschillende variabe¬ 
len typen. Niet elke BASIC variant ge¬ 
bruikt dezelfde manier van variabelen 
declaratie. We zullen hierom maar zo¬ 
veel mogelijk naar AmigaBasic verwij¬ 
zen. Eerst maar weer een voorbeeld¬ 
je. Het BASIC variant: 

leeftijd% = 18 


naam$ = "Jan" 

PRINT"Hallo ";naam$; 

PRINT'dus je bent ";leeftijd%;" 
jaar." 

Het zal wel duidelijk zijn wat de uitvoer 
hiervan is. Nu de C versie van het BA¬ 
SIC programma. 

main() 

{ 

int leeftijd; 
char *naam; 

naam = "Jan"; 
leeftijd = 18; 

printf("Hallo %s dus je bent 
%2d jaar. \n",naam,leeftijd); 

} 

Zoals u ziet, moeten eerst een aantal 
variabelen opgegeven worden. In dit 
geval zijn dat leeftijd en naam. De va¬ 
riabele leeftijd is van het type INT en 
naam is van het type CHAR. Nu staat 
voor ‘naam’ nog een sterretje. De wer¬ 
kelijke betekenis daarvan 
wordt in een van de komende 
afleveringen behandeld. 
Neemt u voorlopig maar aan 
dat dit nodig is om een string 
op het beeldscherm te printen. 
Vervolgens worden de waar¬ 
den aan de variabelen toege¬ 
kend. Als laatste wordt het ge¬ 
heel afgeprint. Nu ziet u de 
werkelijke kracht van de 
PRINTFQ functie. U kunt de 
uitvoer juist geformatteerd op 
het beeldscherm zetten. Voor 
deze geformatteerde uitvoer 
zijn een aantal conversie te¬ 
kens beschikbaar. Dit zijn: 

%c - uitvoer als een teken 
%d - als een decimale integer 
%e - als een getal met drijvende 
komma en wetenschappelijk no¬ 
tatie 

%f - als een getal met drijvende 
komma 

%g - in het %e of %f formaat, welke 

maar het kortst is 

%s - uitvoer als een string. 

Nu kunt u voor de getalsconversie-co- 
des een getal vermelden. Dit getal 
stelt dan de format voor. Bijvoorbeeld; 
‘%2d’ betekent dat er ruimte voor een 
2-cijferige integer waarde in de tekst 
vrijgemaakt moet worden. Bij floating 
point conversie tekens is dit nog even 
iets anders. Een voorbeeld: ‘%2.2f’ wil 
zeggen dat er 2 getallen voor de kom¬ 
ma en 2 getallen achter de komma 
staan bij het floating point getal. Tot 
zover de conversietekens. We heb¬ 
ben het al gehad over verschillende 
datatypen. Bij AmigaBasic is dit achter 
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een variabele aan te geven door mid¬ 
del van een bepaald teken of met be¬ 
hulp van het DEF commando. Zo kent 
AmigaBasic de volgende variabele ty¬ 
pen; SHORT INTEGER, LONG INTE¬ 
GER, SINGLE PRECISION, DOU¬ 
BLÉ PRECISION en STRING . C kent 
identieke typen variabelen en daar¬ 
naast nog een aantal andere. We zul¬ 
len ze de volgende keer doornemen. 

De invoer 

Net zoals in BASIC is het ook in C mo¬ 
gelijk variabelen tijdens de program- 
maloop een waarde te geven. BASIC 
heeft hiervoor de bevelen INPUT of 
INKEY$. C heeft hiervoor de functies 
SCANFO en GETCHAR(). SCANF() 
laat zich vergelijken met de BASIC 
equivalent INPUT. Het programma 
wacht met de uitvoer tot er een carria- 
ge return geweest is. Dit in tegenstel¬ 
ling tot GETCHAR(). GETCHAR() 
wacht niet tot er een carriage return 
geweest is. Daarmee is GETCHAR() 
dus te vergelijken met INKEY$. Een 
voorbeeld: 

main() 

{ 

char naam; 

printf("Wat is uw naam 


scanf("%s",naam); 

printf("Hallo %s. hoe gaat 
het?\n", 
naam); 

} 

Ook hiervan is het BASIC equivalent 
beschikbaar. 

INPUT "Wat is uw naam";naam$ 
PRINT "Hallo ";naam$;" hoe gaat 
het?" 

Zoals u al bij de C-versie kon zien, ook 
SCANF() kent de conversietekens. Ze 
zijn vrijwel gelijk aan de conversiete¬ 
kens bij de PRINTFQ functie. Er zijn 
wel enkele verschillen. Deze zijn; %e 
en %g ontbreken. %lf is er bijgeko¬ 
men. %lf betekent, vertaal naar een 
getal met drijvende komma, dat wil 
zeggen naar een DOUBLÉ. Zoals we 
al gezegd hebben haalt de functie 
GETCHARQ een teken van het toet¬ 
senbord zonder te wachten op een 
Carriage Return. Aan de hand van het 
volgende voorbeeld zal het u duidelij¬ 
ker worden wat het precies doet. 

main() 

{ 

char c; 

while(l) { c = getchar(); 


putchar(); } 

} 

Meteen hier achteraan het BASIC 
equivalent zodat u de overeenkom¬ 
sten en verschillen kunt zien. 

WHILE 1 c$=INKEY$ 
print c$; 

WEND 

Nu ziet u meteen wat PUTCHAR() en 
WHILE() uitvöeren. Het valt wel een 
beetje buiten het bestek van dit artikel, 
echter u kunt zelf wel uitvinden wat ze 
betekenen door naar de programma’s 
te kijken. Als u er niet achter komt, 
geen paniek, in een volgend artikel 
worden ze wel behandeld. In het voor¬ 
beeld worden met behulp van GET- 
CHAR() de tekens van het toetsen¬ 
bord afgehaald en met behulp van 
PUTCHAR() op het beeldscherm ge¬ 
zet. Doordat de conditie altijd waar is 
in de WHILE-lus zal het programma in 
een eindeloze lus blijven hangen. Wij 
hopen dat tegen de tijd dat de volgen¬ 
de Commodore INFO uit komt u er 
klaar voor bent. 

JOHAN & JOHAN 


AMIGA BUSWARE 


Compleet assortiment Amiga PDS software voor ƒ 11,- per sehijf.Vraag nu een gratis catalogus aan of 
bestel voor ƒ 11,- de speciale introductiediskette, namelijk: 

de A miga B usware I ntroschijf 

Dit is een schijf uit het Busware assortiment, die we samen met een aantal Amiga specialisten heb¬ 
ben samengesteld. Daarop staat de volgende selektie: 


Grafisch demopakket met workbench schermgrapjes, waaronder Wave Bench, Melt en Dropshadow 
Gauge om te bepalen hoevel geheugen er vrij is 

Record Player (om zelf demonstraties te maken, alle muis en toetsbewegingen kunnen herhaald worden) 

Helios Mouse (maakt venster, waar de muis is, actief) 

Pins (grafisch programma) 

Asteroids (ruimtespel) 

DOS kwik Om meer op schijf te krijgen 

Drunken Mouse (de muis gaat rare bewegingen maken op het scherm) 

Backgammon spelprogramma 

X-lcon Om programma’s, die geen ICON hebben, toch te kunnen starten met Icon 
Conman (CLI Editor) 

Bij deze introductieschijf doen we natuurlijk ook een catalogus van onze andere Amiga Busware. 

bel: 020-273198 /02152-62343 

Of maak ƒ11,- over op giro 3157656 van Infolist Huizen (girocheck sturen kan ook naar PB 112, 1260 AC Blaricum). 
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Alweer de derde aflevering van deze CLI cursus. ’How time flies when life goes fastll’. 
In deze aflevering gaan we in op de zogenaamde ’startup-sequence’ en alle comman¬ 
do’s die in de startup-sequence (kunnen) worden gebruikt. Tevens zullen we wat die¬ 
per op ED in gaan. 

Binnenin AmigaDOS 3 


De startup-sequence 

W at is deze, wellicht al vaak gehoorde kreet, ’startup-sequence’ nou ei¬ 
genlijk? Het woord zegt het al, de opstart. Nadat de Amiga de zoge¬ 
naamde ’bootprocedures’ heeft doorgemaakt, dit wil zeggen, nadat ze het 
AmigaDOS heeft ingeladen, zal ze zoeken naar een file genaamd ’startup-se¬ 
quence’. Deze file moet aanwezig zijn in de ’s’-directory anders wordt deze 
opstartprocedure overgeslagen en komt de Amiga gewoon terug in het Ami¬ 
gaDOS. 

Stel, u heeft een Amiga 500 met een 
geheugenuitbreiding. Hierop is een 
klok aanwezig. Als u dan automatisch 
de goede tijd ingelezen wilt hebben 
zou u een startup-sequence aan kun¬ 
nen maken die deze functie vervult. 

Hoe maakt u een dergelijke startup- 
sequence. Dat is niet zo moeilijk. U 
neemt een editor. Dit kunnen verschil¬ 
lende zijn. Wij behandelen er echter 
maar één. Dat is de editor die stan¬ 
daard op de Workbench diskette 
staat, genaamd ED. 

ED 

ED is een doodgewone screeneditor. 

Niet al te bijzonder maar omdat iede¬ 
reen over deze editor beschikt is deze 
toch van groot belang. De syntax van 
ED luidt: ED (programmanaam) 

(SIZE). 

Nadat een programmanaam opgege¬ 
ven is, wordt een venster geopend. 

Als de file ook echt bestaat zal aange¬ 
geven worden dat de file geladen 
wordt. Het aantal tekentjes geeft 
globaal aan hoe lang de file is. Als de 
file niet bestaat zal er ook een venster 
geopend worden met daarin de ver¬ 
melding 'Creating new file'. ED onder¬ 
steund de 1 optie. Dit is de optie SIZE. 

Achter SIZE kunt u vermelden wat de 
grootte moet zijn van het werkgeheu¬ 
gen. Bijvoorbeeld: ED daphne.c SIZE 
80000 Dit zal een bestand inlezen met 
de naam 'daphne.c' en zal een werk¬ 
geheugen reserveren voor dit bestand 
van 80000 bytes. 

Nog een laatste opmerking. Het is niet 
mogelijk met ED programma files in te 
lezen. ED zal dan wel een venster 


openen maar ze zal vermelden; ’file 
contains binary’. Dat wil zeggen, de 
file bestaat niet uit ASCII data. ED kan 
niets anders lezen dan ASCII en zal 
dus het bestand niet inlezen. 

De opdrachten van ED 

ED kent twee manieren van opdrach¬ 
ten invoeren. 1. De CTRL-toets + een 
andere toets. 2. De ESC toets. 

De CTRL toets combinatie wordt ook 
wel de directe mode genoemd. U 
drukt de CTRL toets in, tegelijkertijd 
drukt u een andere toets. We zullen 


alle combinaties eens doornemen. 
CTRL-A: Voeg een regel tussen. 
CTRL-B: Wis een regel. CTRL-D: 
Scroll’d de tekst omlaag. CTRL-E: 
Toggle, ga naar top of bottom van het 
scherm. CTRL-F: Toggle, draait 
hoofdletters om naar kleine letter en 
vica versa. CTRL-G: Herhaal de laat¬ 
ste ESC letter combinatie. CTRL-H: 
Zelfde als BACKSPACE. CTRL-I: 
Idem als TAB. CTRL-M: Gelijk aan 
RETURN. CTRL-O: Hetzelfe als DE¬ 
LETE. CTRL-R: Cursor naar vorig 
woord. CTRL-T: Cursor naar volgend 
woord. CTRL-U: Scroll’d de tekst om- 
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hoog. CTRL-V: Beschrijft opnieuw het 
scherm met dezelfde tekst (verify). 
CTRL-Y: Wist tekst tot het einde van 
de regel. CTRL-(vierkant haakje ope- 
nen):Zelfde als ESC. CTRL-(vierkant 
haakje sluiten) :Ga naar het einde van 
de regel. Deze commando’s kunnen 
ingegeven worden tijdens het werken 
aan de tekst cq. het programma. 



Als tweede zijn er dan de ESC com¬ 
mando’s. Dit zijn 1- of meerletterige 
commando’s die voorafgegaan wor¬ 
den door een ESC teken. Dit ESC te¬ 
ken wordt voorgesteld door een 
Ook hiervan is weer een hele waslijst. 
We behandelen ze in alfabetische 
volgorde. ESC A "tekst": hiermee 
voegt u de tekst, die tussen aanha¬ 
lingstekens, staat in uw tekst of pro¬ 
gramma in. ESC B : ga naar het einde 
van het document/programma. 

ESC BE: einde van het blok op de po¬ 
sitie van de cursor. ESC BF/string/: 
zoek vanaf de cursor locatie tot de top 
van het document/programma naar 
de tussen ’/’ opgegeven string. ESC 
BS : zet de start van het blok op de 
cursor locatie. ESC CE: beweeg de 
cursor naar het einde van de regel. 
ESC CL: beweeg de cursor 1 positie 
naar links. ESC CR: beweeg de cur¬ 
sor 1 positie naar rechts. ESC CS: be¬ 
weeg de cursor naar het begin van de 
regel. 

ESC D: wis de regel waarop de cursor 
staat. ESC DB : wis het blok dat u met 
ESC BS en ESC BE opgegeven hebt. 
ESC DC: wis het karakter waarover 
de cursor staat. 

ESC E/string1/string2/: deze opdracht 
verwisselt 1 keer stringl voor string2. 
Als u ESC RP er voor vermeldt her¬ 
haalt het proces zich. ESC EQ/ 
string 1 /string2/: hetzelfde als hierbo¬ 
ven echter eerst wordt er geinfor- 
meerd of deze opdracht wel uitge¬ 
voerd moet worden. ESC EX: negeer 
in de regel waarin de cursor staat, de 
rechter kantlijn. 

ESC F/string/: zoek vanaf de cursor 
locatie tot de onderkant van de file 


naar de tussen 7 ’ vermelde string. 

ESC l/string/: voeg de tussen 7 ’ ver¬ 
melde string tussen, voor de regel 
waarop de cursor staat. ESC IB : voeg 
een kopie van het blok, gedefinieerd 
met ESC BS en ESC BE, tussen ach¬ 
ter de regel waarop de cursor staat. 
ESC IF/filenaam/: voeg de file ge¬ 
naamd 'filenaam’tussen, achter de re¬ 
gel waarop de cursor staat. 

ESC J : voeg de regel, die onder de 
regel waarop de cursor staat, samen. 
De regel, die er aan toe wordt ge¬ 
voegd, wordt achter de regel, waarop 
de cursor staat, gezet. 

ESC LC: dit commando zorgt ervoor 
dat er WEL onderscheidt gemaakt 
wordt tussen hoofdletters en kleine 
letters tijdens zoekpogingen. Bijvoor¬ 
beeld: 7 cs/Test/. Dit zorgt er voor dat 
er gezocht wordt naar Test’ en niet 
naar ’test’. 

ESC M n : spring naar regel n. Voor n 
vult u een willekeurig getal in. 

ESC N : spring naar het begin van de 
volgende regel. 

ESC P: spring naar het begin van de 
voorgaande regel. 

ESC Q: verlaat ED zonder te saven. 
Als u wijzigingen in de tekst/program¬ 
ma gemaakt heeft zal ED vermelden, 
’Edits will be lost - type Y to confirm:’. 
Als u hier een ander karakter dan ’y’ 
intypt zult u ED niet verlaten. 

ESC RP: herhaal totdat er een fout op¬ 
treedt. Bijvoorbeeld, *rpe/print/printf/. 
Dit zorgt ervoor dat alle 'print’ op¬ 
drachten in ’printf’ veranderd worden. 
Het proces herhaalt zich totdat er een 
fout optreedt. Dit zal meestal de 
’Search failed’ error zijn. 

ESC S: zet het gedeelte van de regel 
na de cursor locatie op de volgende 
regel. In feite is dit het zelfde als een 
RETURN geven op deze plaats. ESC 
SA: save de tekst/programma naar de 
file die u bij het opstarten opgegeven 
heeft. ED vermeldt dan ’Writing to file 
(filenaam)'. ESC SB: hiermee wordt 
het blok op het scherm afgebeeld. 
Echter alleen de blokstart (ESC BS) 
positie wordt hiermee duidelijk. Vanaf 
de top van het scherm wordt het blok 
dan afgebeeld. ESC SH: hiermee 
wordt status informatie omtrent uw file 
afgebeeld. Als eerste wordt de file¬ 
naam vermeld. Het tweede item is de 
TAB-afstand. Daarna worden de ver¬ 
schillende margins vermeld. Er wordt 
vervolgens afgebeeld wat voor tekst 
er op de blok start en blok einde regel 
staat, en als laatste wordt nog ver¬ 
meld hoeveel van de van te voren op¬ 
gegeven bufferruimte ingenomen is. 
ESC SL n: de linker kantlijn laat zich 
met deze functie instellen. ESC SR n: j 
idem als voorgaande, alleen hiermee 
is de rechter kantlijn in te stellen. ESC 


ST n: hiermee stelt u de TAB afstand 
in. 

ESC T: ga naar de top van uw 
tekst/programma. 

ESC U: als u veranderingen gemaakt 
heeft en het is u toe niet geheel beval¬ 
len dan kunt u met ESC U de veran¬ 
deringen weer ongedaan maken. 
Voorwaarde is wel dat u niet van de 
regel afgeweest bent. ESC UC: maak 
geen onderscheid tussen hoofd- en 
kleine letters tijdens zoekpogingen. 
ESC WB/filenaam/: schrijf het blok, 
dat u met ESC BS en ESC BE gedefi¬ 
nieerd heeft, weg naar de file met de 
naam 'filenaam’. 

ESC X: verlaat het programma maar 
schrijf eerst de gegevens weg naar de 
file die u van te voren opgegeven 
heeft. Nu we de commando’s van ED 
een beetje kennen is het mogelijk een 
startup-sequence samen te stellen. 



Het samenstellen 


We beginnen door in te typen: format 
DRIVE (drivenummer) NAME testje 
Nu zal het even duren voordat uw 
schijf geformatteerd is. Als dit gebeurd 
is typt u: install (drivenummer). Tot zo¬ 
ver het opstartbaar maken van de 
schijf. Voor een startup-sequence is 
ook nog een ’s’-directory nodig, make- 
dir (drivenummer):s zorgt hier- voor. 
Nu wordt het tijd voor de startup-se¬ 
quence. Het volgende wat u in gaat ty¬ 
pen is al een heel stuk op de goede 
weg. ed s/startup-sequence. We ko¬ 
men nu in ED terecht. Nu kunnen we 
een startup-sequence samen stellen. 
Deze zou er bijvoorbeeld als volgt uit 
kunnen zien. 

echo "*ec" prompt A s/virusdetect 
echo "Tracing system for 
virusactivity.." 

echo "if any value comes up.. 

BEWARE !!." 

run s/virussearch path df2: 
add dir ram: path ram: 
add addbuffers dfO: 20 addbuffers 
df2: 20 loadwb -debug; 
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Alleen het commando 'echo’ is nog 
niet behandeld, dus wat de functie is 
van de overige commando’s weet u 
ondertussen, ’s/virusdetect’ en ’s/vi- 
russearch’ zijn kleine machinetaal 
programmaatjes die controleren op de 
aanwezigheid van virussen op schijf 
en in het geheugen. Ze zijn niet van 
belang in deze cursus en worden 
daarom ook niet doorgenomen. We 
gaan nu eerst een aantal commando's 
doornemen die van belang zijn bij het 
opstellen van een startup-sequence. 



Echo 

Met ECHO kunt u een tekenreeks uit¬ 
voeren naar het beeldscherm. De syn- 
tax van ECHO is: ECHO "teken¬ 
reeks". Bijvoorbeeld. ECHO "Hallo 
luitjes." zal een vrij simpele tekst uit 
voeren naar het beeldscherm. Er zal 
komen te staan: ’Hallo luitjes.’ ECHO 
kent enige opties. Deze opties worden 
ingegeven in de tekststring. De opties 
zijn: 

*ec : maak het beeldscherm schoon 
*n : geeft een NEWLINE. Mischien dat 
er nog meer opties zijn, na 832 ver¬ 
schillende opties uitgeprobeerd te 
hebben werdt het ons enigzins zwart 
voor de ogen. Ook ECHO kent weer 
de redirection mogelijkheid. ECHO 
ptr: "Hallo" stuurt de tekst ’Hallo’ naar 
de printer. 

FAILAT Elke CLI instructie levert een 
nummer op als er iets mis gaat bij de 
uitvoering van het commando. Amiga- 
DOS breekt de uitvoering van een 
batchbestand af als de foutcode gro¬ 
ter is dan 10. Als u nu bijvoorbeeld een 
niet uitvoerbaar bestand uit probeert 
te voeren zal dit de foutcode 121, ’file 
is not a object module’ opleveren. 
Doormiddel van FAILAT kunt u de 
fout- drempel, waarbij een batchbe¬ 
stand wordt afgebroken, verhogen of 
verlagen. De syntax van FAILAT. FAI¬ 
LAT n. Hierbij is n een integer waarde 
tussen 1 en en een getal met 17 nul¬ 
len. Dit laatste hoeft u niet te probe¬ 
ren. De AmigaDOS foutmeldingen 


gaan maar tot 226, dus een getal even 
groter dan 226 is voldoende om uw 
batchbestand zonder onderbrekingen 
van AmigaDOS uit te laten voeren. 
SKIP/LAB Een soort GOTO com¬ 
mando in AmigaDOS? Tja, dat is wel 
ongeveer de vergelijking die je kunt 
trekken. Als AmigaDOS SKIP tegen¬ 
komt zoekt het in het bestand naar het 
woord LAB en voert daarvandaan het 
bestand verder uit. Achter SKIP en 
LAB mag ook een labelnaam vermeld 
staan. Bijvoorbeeld, IF NOT EXIST 
daphne.c SKIP huppeldepup EN Dl F 
TYPE daphne.c 

LAB huppeldepup (de rest van het be¬ 
stand) Ok, we geven toe een beetje 
een onlogische constructie, maar ja, 
het voorbeeld heiligt de middelen niet¬ 
waar? Toch is het niet aan te raden 
hiervan vaak gebruik te maken. An¬ 
ders wordt het net een BASIC pro¬ 
gramma. Onoverzichtelijk dus. 

WAIT Het commando zegt het al. 
Wachten. Omdat de Amiga een multi- 
tasking systeem is, kan het voorko¬ 
men dat meerdere taken bijvoorbeeld 
de diskdrive aan willen spreken. Om 
nu te voorkomen dat u langer zult 
moeten wachten dan als u de taken na 
elkaar uitvoert is het mogelijk de WAIT 
instructie te gebruiken. De syntax 
luidt: WAIT (UNTIL) n (eenheid). 

’n’ is of een integer waarde, of een tijd¬ 
stip. Bijvoorbeeld. WAIT 2 sec. Er 
wordt nu 2 seconden gewacht, echter 
er mag ook ’2 min’ ingevuld worden. 
De task zal dan 2 minuten wachten. 
Ook is het met behulp van het key- 
word ’UNTIL’ mogelijk de task tot een 
bepaald tijdstip te laten wachten. 
WAIT UNTIL 12:35 zorgt er voor dat 
de task tot 12:35 wacht. Als u onder¬ 
wijl toch schoon genoeg krijgt van de 
TE lang ingestelde wachttijd, een sim¬ 
pele druk op de CTRL-C combinatie 
verlost te task uit zijn WACHTELIJK 
lijden. 



mogelijk aan de hand van bepaalde 
voorwaarden een gedeelte van het 



programma wel of niet uit te voeren. 
De drie instructies IF/ELSE/ENDIF 
behandelen we in 1 keer omdat ze on¬ 
losmakelijk met elkaar zijn verbonden. 
De een mag niet los van de ander 
voorkomen. De syntax: IF (conditie) 
opdrachten (ELSE opdrachten) EN- 
DIF Het wordt waarschijnlijk al duide¬ 
lijk. Er moet na het IF commando een 
conditie komen. Aan de hand van de 
resulterende waarde (TRUE or FAL- 
SE) wordt een bepaalde program- 
mastroom gevolgd. 

Er bestaan een zestal condities. Deze 
zijn: -EXISTS : hierbij wordt op schijf 
naar het achter EXISTS vermelde be¬ 
stand gezocht. Als het bestaat is de 
uitkomst TRUE en als het niet bestaat 
is de uitkomst FALSE. 



-EQ: equal, engels voor gelijk aan. Er 
wordt getest of twee strings gelijk aan 
elkaar zijn. Als de strings gelijk aan el¬ 
kaar zijn is de uitkomst weer TRUE 
anders is het FALSE. Een voorbeeld: 
IF "is dat zo" eq "is dat niet zo" ECHO 
"ja hoor" ELSE ECHO "nee niet zo" 
ENDIF Dit levert als uitkomst FALSE 
op. Dus zal het ECHO statement tus¬ 
sen IF en ELSE niet uitgevoerd wor¬ 
den, echter het ECHO statement ach¬ 
ter ELSE zal wel uitgevoerd worden. 
Immers de uitkomst was FALSE. Ech¬ 
ter twee tekststrings met elkaar verge¬ 
lijken is onzin. Er is wel een betere 
toepassing. Met de .key en .def in¬ 
structies in een batchbestand zijn be¬ 
tere constructies denkbaar. Hier ko¬ 
men we straks nog op terug. 

-FAIL: met deze conditie is het moge¬ 
lijk te controleren of de voorgaande 
opdracht een fout heeft veroorzaakt. 
Het foutnummer hiervan moet wel 
groter of gelijk zijn aan 20. Het is ech¬ 
ter wel noodzakelijk dat u met de in¬ 
structie FAILAT de foutdrempel boven 
de 20 zet, anders wordt het batchbe¬ 
stand nooit tot zover uitgevoerd, im¬ 
mers AmigaDOS stopt standaard met 
het uitvoeren van een batchbestand, 
bij een foutwaarde van 10. 

-ERROR: hetzelfde als hierboven, 
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echter de foutdrempel ligt nu bij 10. 
-WARN: ook weer soortgelijk, nu ligt 
de foutdrempel bij 5. 

-NOT : als laatste de toevoeging NOT. 
NOT kan worden gezet voor de overi¬ 
ge condities. Bijvoorbeeld, IF NOT 
EXISTS (filenaam) In feite wordt de 
redenering hierdoor omgedraait. Als 
de bovenstaande EXISTS een TRUE 



waarde op zou leveren, dan wordt dit 
door de NOT conditie omgedraait 
naar een FALSE waarde. 

QUIT zorgt er voor dat de uitvoering 
van een batchbestand voor- tijdig 
wordt afgebroken. De syntax van 
QUIT luidt: QUIT (n). De integer n ach¬ 
ter QUIT geeft de mogelijkheid een re¬ 
turn waarde mee te geven. Als dit gro¬ 
ter dan 10 is, en u voert de instructie 
uit van uit CU zal er op uw beeld¬ 
scherm verschijnen; ’quit failed return- 
code (een code 10)’. 

ASK Een commando dat het mogelijk 
maakt interactief te werken op de Ami¬ 
ga. Weliswaar op een simpel niveau, 
maar toch. In combinatie met IF is 
ASK een van de krachtigste CU com¬ 
mando’s. De syntax van ASK: ASK 
(string). Uw antwoord op ASK dient 
dan ’Yes,No,Y, N’ te zijn. Als uw ant¬ 
woord ’Yes of Y' is dan levert ASK een 
foutcode 5 op. Met behulp van IF 
WARN zou u kunnen testen op deze 
gebeurtenis. Het is ook mogelijk de 
foutdrempel te verlagen waardoor u 
weer terug in CU kan komen. Een 
voorbeeldje. U wilt in uw startup- se- 
quence de mogelijkheid kunnen krij¬ 
gen om de WorkBench wel of niet in te 
laden. De startup-sequence zou er als 
volgt uit kunnen zien, ASK "Wilt u de 
WorkBench inladen? (y/n)" IF WARN 
LOADWB ENDIF 

EXECUTE Als laatste het commando 
dat voor batchbestanden zo belangrijk 
is. Zonder EXECUTE zou het niet mo¬ 
gelijk zijn batchbestanden uit te voe¬ 
ren. Dus, EXECUTE dient om batch- 
bestanden uit te voeren. Wat is nu een ! 
batchbestand? Een batchbestand is | 


een verzameling van DOS opdrach¬ 
ten samengevoegd in 1 ASCII-file. 
Een voorbeeld van een batchbestand 
is bijvoorbeeld de startup-sequence. 
Om nu een batchbestand uit te voeren 
moet het EXECUTE commando ten 
tonele verschijnen. Typt u maar eens 
in: EXECUTE s/startup-sequence. De 
startup-sequence van uw AmigaDOS 
schijf zal uitgevoerd worden. Nog 
even de syntax van EXECUTE, EXE¬ 
CUTE (naam van het batchbestand). 
Wat heeft dit allemaal met de startup- 
sequence van doen zult u zich nu af¬ 
vragen. Zoals we net al hebben ge¬ 
zegd, de startup-sequenc is een 
batchbestand dus al de hierboven be¬ 
handelde zaken zijn van toepassing 
op de startup-sequence. Zoals we al 
eerder gezegd hebben in het 
IF/ELSE/ENDIF onderdeel, er zijn nog 
een paar extras met batchbestanden. 
Het is mogelijk om met variabelen te 
werken. Echter in tegenstelling tot de 
programmeertaal die de meesten van 
ons wel zullen beheersen, BASIC, 
moeten variabelen eerst gedeclareerd 
worden. Dit kan niet midden in het pro¬ 
gramma gebeuren of op meerdere 
plaatsen, nee het moet in het begin 
gebeuren en mag maar 1 keer gebeu¬ 
ren. Met de instructie .key declareert u 
de variabelen. 

Een voorbeeldje: .key naam TYPE 



(name) to prt: Stel, dit batchbestand 
heet ’lprint’. Nu geeft u achter Iprint de 
naam van het uit te printen bestand. 
'EXECUTE LPRINT daphne.c’ zorgt 
ervoor dat het programma daphne.c 
uitgeprint wordt. U moet bij de varia¬ 
belen er wel om denken dat u de punt- 
haken om de variabele naam zet. Een 
volgende instructie is .def .def geeft 
een variabele een waarde als dit niet 
vermeld is in de EXECUTE opdracht. 
Nog even het voorgaande voorbeeld: 
.key naam,device .def device ptr: 
TYPE (name) TO (device). .def bete- j 
kent dus de default waarde. Default | 
zal in dit voorbeeld dus de uitvoer naar 
de printer gaan. We komen nu weer | 


terug bij het uitgangspunt van deze af¬ 
levering, de startup-sequence. Met 
onze nieuwe kennis gewapend zullen 
we proberen een functionele startup- 
sequence te maken. 

De uitgangspunten 

Wat willen we in onze startup-sequen¬ 
ce hebben. Er moeten in ieder geval 
buffers voor de verschillende diskdri¬ 
ves gecreerd worden, dit verhoogd 
immers de snelheid van het werken 
met de disk- drives. Tevens moet er 
gevraagd worden of de WorkBench in 
geladen moet worden of of er een 
RAM disk aangemaakt moet worden. 

We willen ook enkele commando’s re¬ 
sident maken zodat het werken met 
AmigaDOS wat flexibeler wordt. Met 
deze uitgangspunten ’in mind’ gaan 
we aan het werk. We beginnen met 
het veilig stellen van de oude startup- 
sequence. COPY s/startup-sequence 
s/startup zal dit doen. Vervolgens ty¬ 
pen we in: ED s/startup-sequence. 

Nu kunnen we beginnen met de star¬ 
tup-sequence. : 

ADDBUFFERS dfO: 20 
IF EXISTS dfl: 

ADDBUFFERS dfl: 20 
PATH dfl: ADD 
ENDIF 

IF EXISTS df2: 

ADDBUFFERS df2: 20 
PATH df2: ADD 
ENDIF 

ASK "Wilt u een ram disk aanmaken 
(yes/ no)?" 

IF WARN 

COPY c/dir TO ram: 

COPY c/copy TO ram: CD ram: 

COPY df0:c/cd TO ram: 

COPY df0:c/echo TO ram: 

COPY df0:c/type TO ram: 

ECHO "dir, copy, cd, echo en type zijn 
nu resident" 

ENDIF 

ASK "Wilt u naar de WorkBench 
(yes/no)" 

IF WARN 

LOADWB 
ENDCLI NIL: 

ENDIF 

Zo, met behulp van de voorgaande 
delen van deze cursus moet u zelf 
kunnen bepalen wat deze startup-se¬ 
quence nu uitvoert. Onthoudt u wel, 
als u naar CLI toegaat, de default di¬ 
rectory, dus de directory welke u op¬ 
geeft bij het CD commando, is nu de 
RAM disk. Dus als u een directory wilt 
hebben van dfO: dient u in te typen, 

DIR dfO: en niet DIR, want dan krijgt u 
de directory van de RAM disk. 
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Waarschijnlijk heeft u er al maanden geleden over gehoord, echter in Nederland is ze 
nog niet te verkrijgen. We hebben het over WorkBench vl .3. In Duitsland is de onoffi¬ 
ciële versie al geruime tijd in het grijze circuit te verkrijgen, zodat velen onder ons al 
een copy van een copy van een copy etc. etc. zullen hebben. Toch zijn er weer een 
aantal verschillen met deze versie te vinden. In dit artikel een kort overzicht van deze 
WorkBench-update. 


WORKBENCH VI.3 


Nieuwe commando’s voor AmigaDOS 

M et de komst van WorkBench vl .3 zijn er een aantal commando’s toege¬ 
voegd aan de lijst van al bestaande AmigaDOS commando’s. Wat voor 
nieuwe commando’s zijn er nu gekomen. Als eerste een zeer nuttig com¬ 
mando. Waarom bestond het nog niet eerder! 


Resident 

Recht vertaald betekent het 'aanwe¬ 
zig’. Dit is wat het commando eigenlijk 
doet. Het zorgt ervoor dat AmigaDOS 
commando’s permanent, zolang er 
geen reset gegeven is, in het geheu¬ 
gen staan. Er is wel een beperking. Al¬ 
leen commando’s waarvan het 'pure’ 
bit gezet is kunnen resident gemaakt 
worden. Het ’pure’ bit is 1 van de nieu¬ 
we status bits. Als u de CLI cursus ge¬ 
volgd heeft, hebt u vast wel eens de 
statusbits ’rwed’ gezien. Met de 
nieuwe WorkBench release zijn nog 
een aantal statusbits toegevoegd. Dit 
zijn ’H’idden, ’A’rchive en ’P’ure. Com¬ 
mando’s waarvan het ’pure' bit niet 
gezet is zullen waarschijnlijk niet wer¬ 
ken. RESIDENT werkt alleen maar in 
de nieuwe SHELL-omgeving. Op 
deze SHELL komen we straks nog te¬ 
rug. 

Avai! 

Voor Aztec C bezitters zal het AVAIL 
commando wellicht bekend zijn. De 
nieuwe WorkBench beschikt ook over 
het commando. Met het commando 
krijgt u een overzicht van het totale 
Chip-memory en Fast-memory. Voor 
de zekerheid nog maar even, Chip 
memory is dat deel van het geheugen 
waarin de zogenaamde ’Custom 
chips’, de Blitter en Copper etc., vrij¬ 
elijk hun gang gaan. Vaak dwarsbo¬ 
men ze hierbij acties van de micropro¬ 
cessor. In dit geval de MC68000. In 
Fast memory kunnen de ’Custom 
chips’ nog niet komen dus hier kan de 


MC68000 zonder onderbrekingen zijn 
werk doen. Het Chip memory is nu 
nog 512 Kb groot. 



Het was bij WB 1.2 al mogelijk een 
klok op het beeldscherm te krijgen. Dit 
was nog niet mogelijk van uit CLI. Het 
commando CLOCK vervult deze te¬ 
kortkoming. Naar wens is een Analo¬ 
ge of Digitale klok in te stellen met va¬ 
riabele grootte. In deze zelfde catago- 
rie valt ook het commando 
CLOCKPTR. Na uitvoering van dit 
commando moet u maar eens op het 
WorkBench scherm klikken, dus op 
het scherm achter het CLI window. En 
voila, wat gebeurt er, uw mousepoin- 
ter verandert in een digitaal klokje. Als 
1 u helemaal naar linksboven beweegt 
I zal het klokje minuten en seconden 
I aangeven, als u dan langs de linker- 
i' rand naar beneden beweegt zult u 
; zien dat de datum verschijnt. De (ex-) 


64 bezitters zullen zich het BASIC 
commando CMD nog wel herinneren. 
Even een geheugen opfrissen Wat 
deed dit commando ook al weer? Juist 
de uitvoer omleiden naar een randap- 
paraat. Als u nu LIST intypte ging de 
uitvoer naar het opgegeven randap- 
paraat. Goed, nu weer terug naar het 
eigenlijke verhaal, CMD in AmigaDOS 
dient om de uitvoer die naar het serie- 
le of parallele device gaat, om te lei¬ 
den naar een file. Bijvoorbeeld, voor¬ 
dat u de naar de printer wilt sturen 
maar u weet niet of alles wel goed op 
papier komt te staan. Als het dan ook 
nog uw laatste velletje papier is dan 
wilt u wel zeker weten of de uitvoer 
goed is. Goed, hier komt het comman¬ 
do CMD dus uitstekend van pas. Even 
intypen RUN CMD serial test.prt en de 
uitvoer die u daarna naar de seriele 
printer stuurt wordt omgeleid naar de 
file ’test.prt’. Probeer maar eens 
COPY s/startup-sequence TO prt:. 
Op het beeldscherm zal verschijnen: 
’Redirected (aantal) bytes from seri¬ 
al.device to test.prt’. Nu kunt u in de 
file test.prt nakijken of de printer uit¬ 
voer wel correct geweest zou zijn. 

SKIP/ENDSKIP 

Het SKIP commando bestond al maar 
nu is er het ENDSKIP commando aan 
toegevoegd. Achter het SKIP com¬ 
mando staat het label waar naar toe 
gesprongen moet worden. Als tijdens 
die sprong een ENDSKIP tegengeko- 
I men wordt zal de sprong afgebroken 
worden en wordt er doorgegaan met 
I uitvoeren van de file. Het is ons al 
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meerdere keren overkomen dat we tij¬ 
dens het werken in CLI voor een sim¬ 
pele rekenoperatie terug moesten grij¬ 
pen op ons oude vertrouwde reken¬ 
machine. Toch stond er dan een re¬ 
kengigant voor ons. In CLI was het 
niet mogelijk een reken operatie uit te 
voeren. Dit is nu opgelost met het 
EVAL commando. EVAL kan simpele 
rekenoperaties uitvoeren. Het kan 
twee integer getallen optellen, aftrek¬ 
ken, vermenigvuldigen, delen, AN- 
Den, ORen etc. etc. 


FASTMEMFIRST 

Dit is een DOS commando maar meer 
een utility. De bedoeling van dit com¬ 
mando is simpel, het probeert het 
Chip ram zo lang mogelijk vrij te hou¬ 
den. Programma’s worden eerst in 
Fast ram geladen. FF en FIXFONTS 
zijn Utilities die invloed hebben op de 
leesbare tekens op het beeldscherm. 
Met FF is de printsnelheid sneller te 
maken, tevens is het mogelijk om een 
andere karakterset in CLI te gebrui¬ 
ken. Met de optie -0 zet u FF aan, met 
-n zet u de snelle printroutine weer uit. 
FIXFONTS 'update’ de .font files in de 
FONTS directory. Hiermee wordt be¬ 
doelt dat als u nu een font verwijderd, 
bijvoorbeeld u verwijderd de directory 
RUBY dan zal na een aanroep van 
FIXFONTS ook de file RUBY.FONT 



verwijderd zijn. 


ICONX 


Hiermee kunt eindelijk ook batchbe- 
standen uitvoeren vanuit de Work- 
Bench. Dezen waren anders alleen 
vanuit CLI met EXECUTE uit te voe¬ 
ren. U maakt een icon aan te voor het 
batch bestand en aanklikken maar. 
INITPRINTER forceert het printer.de- 
vice de variabelen gedefinieert met de 
PREFERENCES in te lezen. Voor de J 
harddisk bezitters die hun gegevens 
willen beveiligen is het commando ! 
LOCK handig. U kunt de write protect 


status van de drive of partitie zetten of 
resetten. Ook is het mogelijk een 
password mee te geven. De harddisk 
moet dan wel geformatteerd zijn met 



het zogenaamde FastFileSystem. 
MORE. Hoe vaak heeft u nu tijdens 
het TYPEn van een file niet op de spa¬ 
tiebalk zitten rammen. En hoe vaak 
heeft u na het TYPEn van de file niet 
de ellenlange rij 1 1 1 1.... gezien. 
Goed, de oplossing is dus MORE . 
MORE stopt de uitvoer van tekst aan 
het eind van elke bladzij. U drukt dan 
op de spatiebalk als u door wilt gaan 
of drukt CTRL-C of ’q’ als u wilt beëin¬ 
digen. MORE ondersteunt nog veel 
meer van dergelijke commando’s. 
Hierover meer in een versie 1.3 up¬ 
date van de cursus 'Binnenin Amiga- 
DOS’. 

ALIAS 

Weer een commando dat alleen werkt 
binnen de SHELL omgeving. ALIAS 
zorgt ervoor dat een bepaalde varia¬ 
bele een DOS functie krijgt. Bijvoor¬ 
beeld ALIAS schoon ECHO "*ec" Als 
u nu ’schoon’ intypt zal het beeld¬ 
scherm schoongemaakt worden. 
En dan als laatst, het commando 
WHICH. WHICH gaat nawaar een be¬ 
paald commando is. Hij zoekt dus uit 
in welke directory het commando 
staat of dat het in de RESIDENT list 
staat. Hierbij zijn twee opties van be¬ 
lang. De NORES en de RES optie. De 
een zorgt ervoor dat er niet in de RE¬ 
SIDENT list gezocht wordt, de ander 
zorgt ervoor dat alleen in de RESI¬ 
DENT list gezocht wordt. 

Verbeterde commando’s 

AmigaDOS gaat steeds meer in de 
richting van MSDOS of UNIX. Op zich j 
natuurlijk een zeer prettig en lovens¬ 
waardig streven. Veel bestaande 
commando’s zijn verbeterd of uitge¬ 
breid. Om ze allen te bespreken is 
meer een taak voor een van de vol¬ 


gende delen van de 'Binnenin 
AmigaDOS’ cursus. 

Sommige commando’s hebben echter 
grote veranderingen ondergaan. In al¬ 
fabetische volgorde zijn dit: 

CLOCK . Zoals al eerder gezegd, het 
commando bestond al in WB.1.2 maar 
ze is nu ook vanuit CLI op te starten 
met verschillende opties. Al bekende 
opties zullen zijn; ANALOG,DIGITAL. 
De optie DIGITAL2 zorgt ervoor dat er 
een window ter grootte van de ’title- 
bar’, de bovenste rand van het wind¬ 
ow, geopend wordt. Hierin wordt dan 
de tijd afgebeeld. 

COPY ondersteunt nu meerdere op¬ 
ties. 

BUF bepaalt de buffergrootte voor het 
copieren. 

CLONE zorgt ervoor dat alle status- 
bits meegekopieerd worden. 

DATE zorgt ervoor dat de datum dat 
de file gecreeerd is meegecopieerd 
wordt. 

DIR ondersteund nu ook de opties 
ALL, DIRS en INTER. Vroeger moes¬ 
ten dezen immers met OPT A, OPT D 
en OPT I meegegeven worden. 

In de INTER mode kunt u na het 
vraagteken COM of C intypen. Amiga¬ 
DOS vraagt vervolgens wat voor com¬ 
mando u uit wilt voeren. Zo kunt u dan 
een file TYPEn etcetera etcetera. 
DISKDOCTOR controleert nu eerst 
de hoeveelheid vrije geheugen voor¬ 
dat het begint. Tevens werkt het nu sa¬ 
men met het nieuwe FastFileSystem. 
ECHO . ECHO heeft een aantal nieu¬ 
we opties gekregen. NOLINE geeft 
aan dat er geen carriage return gege¬ 
ven moet worden, FIRST en LEN be¬ 
palen wat er met de tekststring gebeu¬ 
ren moet. FIRST bepaalt van welke 
positie de tekst afgebeeld moet wor¬ 
den, LEN geeft de lengte van de afge- 
beelde string aan. 

FORMAT . FORMAT kent ook een 
aantal nieuwe opties. Deze zijn; 
QUICK, FFS, NOFFS. QUICK is han¬ 
dig voor harddisk bezitters. Met 
QUICK wordt alleen de root block, de 
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bootblock en de bitmap blocks op¬ 
nieuw geformatteerd. 

FFS betekent FastFileSystem. Hier¬ 
mee geeft u aan dat u de harddisk of 
resetvaste ramdisk met het FastFile¬ 
System wilt formatteren. NOFFS be¬ 
tekent, zoals er al staat, NIET FFS dus 
geen FastFileSystem gebruiken. 
INSTALL . INSTALL kent een aantal 
verbeteringen ten aanzien van de vi¬ 
russen. Ten eerste wist ze het geheu¬ 
gen voordat het boot blok opgebouwd 
wordt. Ten tweede zijn er een aantal 
opties bijgekomen. CHECK bekijkt de 
bootsector en geeft hiervan verslag. 
De optie NOBOOT geeft aan dat de 
disk niet opstartbaar is maar dat het 
wel een DOS disk is. 



LIST . Veel veranderingen (en dus 
veel uitleg) in het commando LIST. De 
nieuwe statusbits (hidden, archive en 
pure) worden nu door LIST afgebeeld. 
LIST kan ook met wildcards (#?) sa¬ 
menwerken. Ook kent ze een aantal 
extra opties, Deze zijn, FILES, DIRS 
en BLOCK. Bij de optie FILES worden 
alleen de files afgebeeld dus niet de 
directories, dit in tegenstelling tot 
DIRS waarbij alleen de directories af¬ 
gebeeld worden. De optie BLOCK 
geeft aan dat de filegrootte in aantal¬ 
len blokken moet worden afgebeeld. 
Als laatste en als mooiste, LIST kent 
een keyword waarmee de uitvoer ge¬ 
regeld kan worden, het is zelfs moge¬ 
lijk hiermee kleine 'script’ files te ma¬ 
ken. 

Een voorbeeldje: LIST #? LFOR- 
MAT="protect %S -d". U ziet dus, met 
het LFORMAT keyword kan de uit¬ 
voer geregeld worden. De %S wordt 
vervangen door de filenaam. Binnen 
de string na LFORMAT kunnen zowel 
DOS commando’s als ASCII tekst die 
afgeprint moet worden. In het boven¬ 
staande voorbeeld wordt van alle files 
het delete bit gereset. 

NEWCLI . NEWCLI heeft een opstart 
file genaamd CLI-STARTUP. Deze 
staat in de s-directory. In feite is er dus 
een default voor de al bestaande op¬ 


tie FROM. 

PROMPT . Met PROMPT kunt u nu 
ook de actuele directory afbeelden. 
De optie ’%s’ zorgt hiervoor. 
PROTECT . PROTECT werkt ook sa¬ 
men met de nieuwe protectie bits. Met 
de opties ADD of ’+’ en SUB of kunt 
u bepalen of u een bit wilt zetten of re- 
setten. 

TYPE . TYPE kent ook een aanal 
nieuwe opties te weten, NUM en HEX. 
Ze bestonden vroeger ook al maar 
dan moest u OPT N of OPT H opge¬ 
ven. 

Nieuwe werkomgeving 

Een nieuwe WorkBench, een nieuwe 
werkomgeving. Ze heet SHELL. Deze 
werkomgeving is veel flexibeler dan 
datgeen waar nu de meesten nog in 
werken. Veel van de nieuwe comman¬ 
do’s werken alleen maar in deze 
SHELL. 

Met het commando NEWSHELL 
start u een nieuwe SHELL op. Eerst 
wordt, net als met NEWCLI een star- 
tup-file opgestart. Deze heet SHELL- 
STARTUP en staat ook weer in de s- 
directory. Als u een shell opstart in 
WB1.3 zal de prompt niet met het be¬ 
kende T terugkomen maar met 
’1 .SYS:’. Dit is een van de verbeterde 
punten van deze shell, het vermeldt 
het actuele device en de actuele di¬ 
rectory. Dit wordt gedaan door het ver¬ 
beterde PROMPT commando. Im¬ 
mers met ’%s’ kan men de actuele di¬ 
rectory of het actuele device laten ver¬ 
schijnen. Ook een hele verbetering is 
het feit dat het zogenaamde ’com- 
mand line editing’ mogelijk is. Dit be¬ 
tekent dat het mogelijk is met de cur¬ 
sor terug te gaan naar het begin van 
de regel om een eventuele fout te ver¬ 
beteren. In CLI betekende dit automa¬ 
tisch weer de hele regel opnieuw inty¬ 
pen. Maar er is nog een extra. Door¬ 
middel van de CURSOR UP & CUR¬ 
SOR DOWN toetsen kan men de vo¬ 
rige commandoregels weer oproepen. 



Hierover meer straks bij het nog te be¬ 
handelen NEWCON: device. 

De al genoemde RESIDENT en ALI¬ 
AS commando’s hebben in de SHELL 
een functie. SHELL maakt gebruik 
van het zogenaamde 'script’ bit. Het is 
dus niet meer noodzakelijk bij deze 
bestanden het EXECUTE commando 
te gebruiken, SHELL herkent aan dit 
script bit dat het bestand een batchbe- 
stand is en dat het dit bestand over¬ 
eenkomstig moet behandelen. 



De preferences 

Ook de preferences zijn een kleine 
wijziging ondergaan. De CLI ON/OFF 
optie is verdwenen. Dit was al vrij on¬ 
zinnig dus reden te meer om dit dan 
ook weg te laten. Het is ook mogelijk 
meteen in een submenu te komen. 
Stel u wilt de printer instellingen ver¬ 
anderen. In plaats van eerst PREFE¬ 
RENCES op te roepen en daarna op 
het ’Change Printer’ vakje te klikken 
typt u nu PREFERENCES PRINTER’ 
in en u komt in het gewenste subme¬ 
nu. Zo komt u met de toevoegingen 
SERIAL en POINTER in het ’Change 
Serial’ en het ’Edit Pointer’ submenu 
terecht. Het ’Change Printer’ subme¬ 
nu heeft een toevoeging gekregen. 
Door op ’Graphic 2’ te klikken komt u 
in een nieuw submenu terecht. Nieu¬ 
we opties zijn hierin onder andere; 
Smoothing (on/off) Met deze optie 
kunt u kartelrand effect van schuine lij¬ 
nen wat verminderen Left offset (aan¬ 
tal inches) De linker kantlijn laat zich 
hiermee naar believen instellen. 
Center (on/off) Hiermee is het moge¬ 
lijk het plaatje in het midden van het 
papier te zetten. 

Limits De verschillende grenzen zijn 
hier mee in te stellen. Dit kan in inches 
of in pixels opgegeven worden. Te¬ 
vens is een vermenigvuldiging factor 
hier instelbaar. 

Color Correct Voor bezitters van kleu¬ 
renprinters zeer handig. Hiermee is 
het mogelijk de kleuren op het papier 
wat feller te laten lijken dan op het 
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beeldscherm. 

Devices en Handlers 

Als je de L directory van WB 1.3 voor 
de eerste keer ’list’ lijkt het wel of deze 
twee keer zo groot geworden is. Dit is 
mischien ook wel zo want er zijn wel¬ 
geteld 5 nieuwe handlers bijgekomen 
en in de DEVS directory is er 1 nieuw 
device bijgekomen. De nieuwe hand¬ 
lers op een rijtje; 

AUX-HANDLER. Een nieuwe seriele 
handler waarmee het nu ook mogelijk 
is geworden om met een terminal aan 
de Amiga te 'hangen’. Het gaat hierbij 
om ongebufferde seriele in- en uit¬ 
voer. 

SPEAK-HANDLER . De uitvoer van 
uw net ingetypte tekst wilt u laten 
spreken? Dit kan. Typt u maar eens in; 
COPY w tekst bestand TO SPEAK: 
Met deze handler is dus mogelijk be¬ 
standen uit te laten spreken, letterlijk 
en figuurlijk. 

PIPE-HANDLER . Tot nu toe was 

communicatie tussen twee tasks een 
zeer lastige zaak. Het was mogelijk 
maar niet simpel. Met de PIPE- 
HANDLER is het wat eenvoudiger ge¬ 
worden. COPY tekst.tst TO PIPE: 
zorgt ervoor dat het bestand tekst.tst 
gebufferd wordt door de pipe-handler. 
Als u nu met een ander programma of 
in een andere task COPY pipe: 
tekst.tst TO *doet dan zal de tekst van 
het bestand weer op het beeldscherm 
verschijnen. 



NEWCON-HANDLER Deze is zo net 
bij de SHELL al even ter sprake geko¬ 
men. Met deze handler is het zoge¬ 
naamde command line editing een feit 
op de Amiga. De NEWCON-HAND¬ 
LER heeft een buffer van 2K waarin 
het vorige commando’s opslaat. Als 
de buffer vol is zal het eerst ingetypte 
commando verwijderd worden. Men 
noemt zo’n buffer dan ook wel een ’cir- 
cular buffer’. De controle karakters 
worden door de NEWCON-HAND¬ 
LER in reverse weergegeven. 


ENV-HANDLER . Dit is eigenlijk nog 
geen handler maar er wordt wel aan 
gewerkt. De gegevens worden nu nog 
in de directory ranrenv weggeschre¬ 
ven. 

Met deze handler en de commando’s 
GETENV en SETENV is het mogelijk 
in DOS variabelen een stringwaarde 
te geven. Bijvoorbeeld, SETENV 
demo "Deze tekst wordt zometeen af¬ 
gedrukt" zorgt ervoor dat aan de varia¬ 
bele ’demo’ de daarachter getypte 
sting wordt verbonden. Als u nu weer 
intypt GETENV demo zal de ingetyp¬ 
te string weer afgebeeld worden. 



Door het RAMDRIVE-DEVICE zal 

straks elke Amiga bezitter over een re- 
setvaste ramdisk beschikken. Nu zult 
u zich afvragen, is het niet een beetje 
onnozel, twee ramdisks in het geheu¬ 
gen. Op zich wel, maar Commodore 
antwoordt hierop dat de niet resetvas- 
te ram disk voor tijdelijke variabelen is 
en de resetvaste ram disk voor de pro¬ 
gramma’s die men wil bewaren gedu¬ 
rende de tijd dat de computer aan¬ 
staat. Afdoende verklaring lijkt ons. 

TURBO DRIVES door FFS 

FFS. Drie letters die harddisk bezitters 
als muziek in de oren klinkt. Eindelijk 
nog meer snelheid uit m’n harddisk 
horen we ze al denken. FFS staat voor 
FastFileSystem. Voor harddisks bleek 
al snel het normale filehandle systeem 
van de Amiga te traag te zijn. Reden 
hiervan is dat het oude formaat eerst 
24 bytes aan header informatie weg¬ 
schrijft en vervolgens pas het data 
blok wegschrijft. Bij het inlezen is het 
proces precies andersom. Eerst moet 
bij het inlezen van elk blok deze 24 by¬ 
tes er ’afgestroopt' worden. Dit kost 
ontzettend veel tijd als er veel blokken 
ingelezen moeten worden, bovendien 
waren de routines niet in 100% machi- 
necode geschreven. Deze tijd is nu 
echt voorbij. Harddisk bezitters kun¬ 
nen weer rustig ademhalen. Format- 
i teer uw harddisk met het FastFileSys- 
tem en u heeft geen last meer van het 
oude file systeem. Het oude filesys¬ 


teem is natuurlijk nog steeds te ge¬ 
bruiken. Het nieuwe filehandle sys¬ 
teem biedt nog een voordeel. U krijgt 
4 procent meer ruimte op uw harddisk. 
Op een 20 MB harddisk is dit onge¬ 
veer 800 K, dus de moeite wel waard. 

Extra’s 

Bij ons exemplaar van WB 1.3 zat ook 
weer een extras schijf. Alhoewel hie¬ 
rop geen nieuwe AmigaBasic versie 
aanwezig was vonden toch nog enke¬ 
le kleine toevoegingen; -een aantal 
nieuwe fonts, te weten, Times, Helve- 
tica en Courier. -een nieuwe MicroE- 
macs versie, -meerdere printerdrivers 
waaronder die voor de Brother HR- 
15XLen Canon PJ-1080A. 

Conclusie 

De nieuwe WorkBench, ook al is de 
officiële versie nog niet uit, is een hele 
verbetering ten opzichte van Work¬ 
Bench 1.2. De echte verbeteringen 
zijn de nieuwe SHELL en het FastFile¬ 
System. Toch blijven er kleine punten 
van kritiek zoals het afbeelden van de 
volume naam van een schijf in plaats 
van het afbeelden van de device 
naam maar dit zal waarschijnlijk een 
kwestie van smaak zijn. Toch is deze 
WorkBench een goede stap vooruit en 
zal waarschijnlijk bij de mensen die 
vaak in CLI werkten in goede aarde 
vallen. 



Dan blijft er nog de kwestie van de 
nieuwe Kickstart. Alhoewel Commo¬ 
dore zegt dat de vl .2 Kickstart prima 
samen werkt met de vl .3 WorkBench 
blijft er toch wel het gevoel dat bij een 
nieuwe WorkBench een nieuwe Kick¬ 
start hoort. Helemaal als u al over een 
HardDisk beschikt is dit zonder meer 
nodig. Geen gedoe meer met die 
schijven, dat is toch ideaal! Altijd op¬ 
starten van de harde schijf. 

Dit belooft waarschijnlijk voor de com¬ 
puter reperatiebedrijven in ons land 
binnenkort weer drukke tijden. Er zijn 
per slot van rekening nog veel Amiga 
bezitters die niet zo handig zijn met 
soldeerbout en tin. 
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Aegis is een van de bekendste softwarehuizen voor de Amiga en is kwalitatief duide¬ 
lijk toonaangevend. Met hun nieuwe Modeler-3D maken ze hun reputatie wel waar. Er 
zijn ook wel andere 3-D programma’s zoals Sculpt, maar dat is meer een creatief pro¬ 
gramma, terwijl Modeler 3D een echt ontwerppakket is. 

Modeler 3D van Aegis 

Driedimensionaal vervolg op VideoScape 3D 


H et hanteren van driedimensionele beelden op een Amiga-scherm is nu 
nog makkelijker geworden. De minimum-eisen die Aegis vermeldt zijn: 
512 k RAM en Workbench versie 1.2 of later. Aanbevolen wordt verder een 
hard disk en meer RAM. 


Roteren, het gebruik van lagen, aktie- 
ve polygonen, voorgrond, de normaal, 
vertex, vlak en nog meer (Engelse) 
termen komen te pas bij het werken in 
drie dimensies. Een aantal begrippen 
is niet meteen in het nederlande te 
vertalen. De handleiding van Modeler 
3D is Engels, maar zeer duidelijk en 
overzichtelijk. De gebruiker moet ove¬ 
rigens wel enige kennis van zaken 
hebben en ervaring met computer-te- 
kenen. 

Stap voor stap kan men vanuit het 
platte vlak driedimensionaal gaan 
werken en figuren opbouwen. Eerst 
eenvoudige, zoals een kubus, later 


ook meer ingewikkelde en samenge¬ 
stelde figuren, al dan niet met gebo¬ 
gen lijnen. Vervolgens kunnen nog 
meer bewerkingen worden uitge¬ 
voerd, zoals schaal veranderen 
(zooming), (deel)verplaatsingen, het 
werken met ‘grids’, ‘templates’, pro- 
jekties, paletten, schaduwen, bewe¬ 
gingen, funkties als ‘lathe’, ’extrude’, 
'sculpt 3D’ en ‘statistics’. 

Modeler 3D is een pakket dat de gra¬ 
fische mogelijkheden van de Amiga 
ten volle weet uit te buiten. 

De Nederlandse importeur is Altycos 
te Zoetermeer, tel. 079 - 510757 



Nieuw Amiga DiskmagazineM 

Het nieuwste Amerikaanse Amiga Disk Magazine 
nu ook in ons land op de markt 

Maar liefst 3 schrijven met programma’s en interessant nieuws over de Amiga en Amiga-toepassingen. 

** AMNews ** 

Prijs ƒ 43,- inklusief verzenden. 

Hotware Software 

Weesperstraat 105, Amsterdam, Gironr. 1939554. 
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Lattice C compiler versie 4.0 is alweer enige maanden op de markt. In dit artikel leg¬ 
gen we Lattice naast concurrent Aztec C. Hiermee hopen we een zo goed mogelijk 
beeld te geven van de kwaliteiten en mogelijkheden van beide compilers. Ze doen 
geen van beide voor elkaar onder, ze vullen elkaar eigenlijk aan. 

Lattice C Versie 4.0 

V oor de eerste indruk gaat men over het algemeen op de plaatjes en hand¬ 
leidingen af. Lattice C scoort hier naar onze mening slechter dan Aztek. 

Dit vanwege de wat minder solide uitgevallen handleiding. De ruim 400 blad¬ 
zijden dikke handleiding is een door een ringband bijeengehouden boek¬ 
werk. Dit geeft al aan wat er met deze handleiding kan gebeuren. 



(Ex)64 bezitters herrineren zich on¬ 
getwijfeld de fameuze ’Reference 
Guide’ nog wel. Hoe lang heeft die van 
u het uitgehouden? Staat nu zeker in 
een iets solidere map in de boeken¬ 
kast? Goed, hier scoort Aztek dus een 
puntje. 

Maar, wat ziet ons oog als we Lattice 
C opstarten? Een heuse program¬ 
meer omgeving! Bij het opstarten 
wordt eerst gevraagd naar datum en 
tijd. Daarna komt er een bladzijde vol 
tekst. Na enige tijd lezen wordt het ons 
duidelijk. Er worden twee Utilities op¬ 
gestart. De een is een zogenaamde 
'Screen Saver’. Dit betekent dat het 
beeldscherm, na twee minuten geen 
toets- of fnuisingave, op zwart gaat. 
Bespaart de monitor weer nietwaar? 

Console Handler 

Ten tweede wordt er een zogenaam¬ 
de 'Console Handler’ opgestart. Deze 
wordt overigens pas actief als u een 
nieuwe CLI start. Wat is nu een con¬ 
sole handler? U kunt zich de situatie 
wel voorstellen. U typt een ellenlange 
zin in en wat blijkt, er staat een type- 
foutje in het begin van de regel. Goed, 
houdt de BACKSPACE toets maar in¬ 
gedrukt en begin overnieuw. Maar met 
de console handler is dit niet nodig, 
even op CURSOR BACK drukken net 
zo lang tot u op de foute letter staat en 
verbeteren maar. De console handler 
beschikt ook over een zogenaamde 
’history buffer’. In deze history buffer 
worden de vorige commando’s opge¬ 
slagen. Als u nu op CURSOR UP 
drukt, zullen de voorgaande comman¬ 
do’s over uw scherm flitsen. Stop op 
de commando regel die u weer wilt ge¬ 
bruiken, en opnieuw uitvoeren maar. 

De benodigde configuratie 

Om met Lattice C te kunnen werken is 
minimaal een 512 KB Amiga nodig 


met 2 diskdrives. Dit in tegenstelling 
tot Aztek C. In hoeverre dit een min¬ 
punt is valt te bekijken. De echte Lat¬ 
tice C fans vinden dat het 'veel profes¬ 
sioneler staat’. Om lekker’ te kunnen 
werken met Lattice C is minimaal een 
2.5 MB Amiga met twee diskdrives en 
een Hard Disk van minimaal 20 MB 
nodig. Toch mag dit naar onze mening 
geen bezwaar zijn om met Lattice C te 
beginnen, immers de diskdrives wor¬ 
den steeds goedkoper en voor veel 
toepassingen is al een tweede diskdri¬ 
ve nodig. 

De handleiding 

Zoals we al eerder hebben gezegd, de 
handleiding is er een van inferieure 
kwaliteit maar dit beinvloedt de inhoud 
niet. Het boek is ongeveer 400 bladzij¬ 
den dik en is geschreven in de Engel¬ 
se taal. Dit zal voor de meesten onder 
ons geen bezwaar meer zijn daar En¬ 
gels de meest gekozen vreemde taal 
is in het middelbaar onderwijs. 

De meeste aandacht wordt geschon¬ 
ken aan de diverse functies die de 
compiler ondersteunt. Dit vult plusmi¬ 
nus 250 bladzijden. De overige hoofd¬ 
stukken geven uitleg over de Linker, 
de Compiler, de Errorcodes, etc. Een 
positief punt is dat er uitleg wordt ge¬ 
geven over hoe u uw systeem moet 
opzetten. Dit scheelt weer urenlang 
knoeien en testen hoe u een fatsoen¬ 
lijke werkschijf krijgt. Aan dit onder¬ 
deel wordt een compleet hoofdstuk 
besteed. 

De schijven 

Het pakket komt compleet met vier 
diskettes. De eerste schijf is de eigen¬ 
lijke opstartschijf met compiler, linker 
en assemblee Verder staan er nog ! 
een aantal Utilities op. Dit zijn een Ob¬ 
ject Module Disassembler. Hiermee 
kunt u de object files, dit zijn de welbe¬ 


kende ’.o’ files, disassembleren ofte¬ 
wel bekijken. 

Met de Object Module Librarian kunt u 
uw eigen library files creëeren. Dit is 
zeer handig voor het zelf fabriceren 
van functies. 

Diskette 2 is de schijf met de include 
files, library files en source files. Wat 
ons onmiddelijk opviel was dat de in¬ 
clude files ’gecompressed’ waren. Dit 
verhoogt de compile tijd weer enigs¬ 
zins. Als laatste is op deze schijf dan 
nog het script aanwezig voor het to¬ 
taal opstarten van Lattice C. Dit wil 
zeggen, er is een ASCII bestand, een 
batch bestand, die de verschillende 
Utilities, de 'Screen Saver’ en 'Conso¬ 
le Handler’, opstart. 

Op diskette 3 is weer een include file 
aanwezig. Hierin staan de niet gecom¬ 
primeerde include files. Deze zijn dus 
gewoon met het TYPE commando te 
'listen’. Verder staan op deze schijf, in 
de directory ’examples’, nog diverse 
voorbeelden. 

Als laatste is er dan diskette 4. Deze 
schijf hoort eigenlijk niet meer bij de 
programmeer omgeving maar is meer 
een soort toegift. Er staan kleine rou¬ 
tines op zoals ’Avail’ en ’Frags’. 

Verschillen met versie 3.10 

Wat voor verschillen zijn er nu te ont¬ 
dekken tussen de voorgaande versie 
3.10 en de nieuwe 4.0 versie? 

Ten eerste, een heel groot verschil, 
ALINK, de linker die bij versie 3.10 
kwam is verdwenen en vervangen 
door BLINK. Blink vervult zijn taak 
sneller en maakt kleinere codes, maar 
hierover straks meer. Op een aantal 
punten is versie 4.0 zelfs incompatible 
met v3.xx. Ten eerste zijn de libraries 
waarmee Blink werkt, niet compatible 
met Alink. De library voor floating point 
operaties is zodanig veranderd dat 
een file persé opnieuw gecompiled 
moet worden, het afhandelen van zo- 
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genaamde 'Break Characters’ is ver¬ 
anderd. Break Characters zijn de 
CTRL-C en CTRL-D codes. Verder 
zijn de INCLUDE files gecompri¬ 
meerd, dit ter verhoging van de com- 
pile snelheid. 

Een van de belangrijkste veranderin¬ 
gen in de compiler is dat het nu moge¬ 
lijk is van te voren op te geven of het 
programma in FAST of in CHIP me- 
mory moet opereren. Dit kan gebruikt 
worden om het CHIP geheugen te 
ontlasten, daar in dat geheugen alle 
grafische afbeeldingen en alle ge- 
luidsdata moeten staan. Hierbij wordt 
wel verondersteld dat een geheugen- 
uitbreiding aanwezig is. 

Er is ook een debug flag bijgekomen 
zodat de zogenaamde 'label namen’ 
in het compile proces opgeslagen 
worden. Hierdoor kunt u later met de 
OMD, Object Module Disassembler, 
de file opnieuw bekijken. 
Veranderingen in de libraries gaan on¬ 
der andere een stap in de richting van 
UNIX/XENIX. Er zijn meerdere nieu¬ 
we functies bijgekomen die taken ver¬ 
vullen gelijk aan hun naamgenoten 
onder UNIX/XENIX. De printf() functie 
is verbeterd. 

Als laatste uit de lange lijst verande¬ 
ringen noemen we de nieuwe Motoro¬ 
la Fast Floating Point libraries. die het 
net genoemde formaat ondersteunen. 
Ook het aantal Utilities is uitgebreid. 
We hebben ze eigenlijk al eerder ge¬ 
noemd. In het kort volgen ze hier nog 
even: 


ASM 

BLINK 

LCOMPACT - 
MEMWATCH- 


OML 

POPCLI 
CONSOLE 
HANDLER - 


Assembler. 

Nieuwe linker. 

Om header files te 
comprimeren. 
Controleert het laag¬ 
ste deel van het ge¬ 
heugen op errors. 
Een Object Module 
Librarian. 

Een window utility. 

Voor handiger com- 
mand line editing. 


De compiler 

De compiler is een zogenaamde two- 
pass compiler. Dit betekent dat de 
compiler uit twee gedeelten bestaat, 
LC1 en LC2. Gelukkig hoeft u ze niet 
zelf achter elkaar op te roepen. Hier¬ 
voor is al een utility geschreven die dit 
doet, waarbij u de compiler opties dan 
op kunt geven. De eerste pass wordt 
dus door LC1 uitgevoerd. Hierbij 
wordt de ASCII file die u ingevoerd 
heeft omgezet naar een zogenaamd 
QUAD file. Dit Quad file is een tussen¬ 
liggende vorm. Het is nog geen ma- 
chinecode. De tweede pass wordt uit¬ 


gevoerd door LC2. Hierbij wordt de 
door LC1 aangemaakte Quad file om¬ 
gezet naar een OBJECT file. Dit Ob¬ 
ject file is nog niet direkt uit te voeren, 
het Object file is nog niet relocatable. 
Dat wil zeggen, het kan nog niet op 
elke willekeurige plaats in het geheu¬ 
gen geplaatst worden. Zowel bij LC1 
als LC2 kunnen meerdere opties ge¬ 
bruikt worden. Het is bijvoorbeeld mo¬ 
gelijk met de Lattice C compiler moge¬ 
lijk een programma in C te schrijven 
en deze dan met een optie te compi- 
len, zodat ze op ROM gezet kan wor¬ 
den. 

De linker 

Zoals we al eerder gezegd hebben, de 
bij Lattice versie 4.0 geleverde linker 
is brandnieuw. Dit betekent ook auto¬ 
matisch enige incompatibiliteit. Maar 
geen getreur, de positieve punten we¬ 
gen ruimschoots op tegen de negatie¬ 
ve punten. Blink is sneller, maakt kor¬ 
tere codes en heeft meer opties dan 
Alink. Het gebruik van Blink is identiek 
aan dat van Alink. Dit wil zeggen dat 
de commandoregel die u intypte met 
Alink, grotendeels gelijk is aan wat u 
met Blink intypt. 

Een grote verandering ten opzichte 
van Alink is dat Blink gebruik kan ma¬ 
ken van OVERLAY’S. Bij Overlay’s is 
het mogelijk geheugen, dat in gebruik 
is geweest door code- of datagedeel- 
ten, weer vrij te maken en te gebrui¬ 
ken voor andere codes of data. Dit is 
vooral voor computers met kleine ge¬ 
heugenruimten of computers die door 
hun inefficiënte geheugengebruik wei¬ 
nig geheugen overhouden. 

Dit proces heeft een nadeel en een 
voordeel. Het nadeel is dat Blink iets 
trager wordt door het laden. Het voor¬ 
deel is dat het geheugengebruik door 
Blink veel efficiënter wordt. 

De assembler 

Deze assembler genaamd ASM is 
een volwaardige mnemonics assem¬ 
bler die een grote set van assembler- 
directives, lees assembler stuurco- 
des, ondersteund. Met Asm kunt u ge¬ 
deelten machinecode voor-compilen 
om ze later te gebruiken in uw C pro¬ 
gramma. Het is ook mogelijk stukken 
machine code apart te schrijven, met 
Asm te assembleren en vervolgens te 
linken. Daarna heeft u een stuk uit¬ 
voerbare code die u in mnemonics ge¬ 
schreven hebt. 

Het blijft toch jammer dat de mnemo¬ 
nics nog niet direct in het C program¬ 
ma te integeren zijn. Dit blijft dus nog 
een van de sterke punten van Aztek C. 


Vergelijkende test 

Nu de 'big key question’, welke is be¬ 
ter? De beste oplossing leek ons een 
klein programmaatje te schrijven, om 
deze vervolgens met beide compilers 
te testen op grootte, compile- en link 
tijd en op uitvoersnelheid. Het pro¬ 
gramma op zich voerde niet zoveel 
uit. Het opende de timerport en telde 
van 0 tot 1000000. Het programma 
stond in beide gevallen op RAM disk. 
De libraries moesten in beide gevallen 
van de schijf gehaald worden. De re¬ 
sultaten waren alsvolgt: 

Aztek C Lattice C 
Compilen: 16.5 sec. 26.5 sec. 
Linken: 18.4 sec. 19.0 sec. 

File grootte: 5644 bytes 8544 bytes 
Uitvoertijd: 8.513 sec. 9.980 sec. 

Het compilen bij Aztek C bestond uit 
de compiler aanroepen (cc) en de as¬ 
sembler (as). Lattice C riep LC1 en 
LC2 aan tijdens de compile fase. Uit 
deze test komt Aztek C als overwin¬ 
naar uit de strijd. We vonden dit bewijs 
wel een beetje eenzijdig en hebben 
daarom het programma een beetje in¬ 
gewikkelder gemaakt. We hebben de 
rekenvaardigheden van de compilers 
getest. 

De som b= a * 50 / (53 % 4) + a is een 
miljoen maal berekend. Even als op¬ 
merking, het was een integer bewer¬ 
king, geen floating point. De volgende 
tabel doet van deze test verslag: 

Aztek C Lattice C 
Compilen: 16.8 sec. 29.0 sec. 
Linken: 18.6 sec. 19.2 sec. 

File grootte: 5664 bytes 8588 bytes 
Uitvoertijd: 62.706 sec. 115.982 s. 


Ook uit deze test komt Aztek C weer 
als winnaar tevoorschijn. Hebben we 
niet ergens gehoord dat Lattice C ver¬ 
sie 5.0 al op stapel staat? Goed, uit de 
test blijkt ook wel dat het nodig is. Op 
de linker na is Lattice C slechter dan 
Aztek C. Blink echter doet het verba¬ 
zend goed ten opzichte van de Aztek 
linker. Hierin hoeven we waarschijnlijk 
dan ook geen verbeteringen te ver¬ 
wachten, deze is gewoon al goed. 

Ten opzichte van Aztek C moet Latti¬ 
ce C helaas nog steeds het onderspit 
delven. Eigenlijk op alle fronten is de 
concurrent beter. Toch blijft Lattice C 
een goed stuk programmeer werk. Ze 
blijft zeer compatible met haar gelijk¬ 
namige tegenhangers op de PC’s. De 
Lattice versie 4.0 compiler kost 
i ƒ 649,-. Voor dit geld krijgt u een 400 
bladzijden dikke handleiding en vier 
schijven. 

Inl: Het Computercollectief, Amstel 
312, 1017 AP, Amsterdam. 
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